home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 23 / CU Amiga - Super CD-ROM 23 (June 1998).iso / CreatingGames / Utilities / Asm / AB3DIIsrc / source_4000 / echoHIRES.s < prev    next >
Encoding:
Text File  |  1996-07-02  |  218.0 KB  |  14,892 lines
  1.  
  2. CHEESEY equ 0
  3.  
  4. *************************************************
  5. * Stuff to do to get a C2P version:
  6. * Change copperlist
  7. * Change wall drawing
  8. * change floor drawing
  9. * change object drawing
  10. * change polygon drawing (ugh)
  11. * Write a palette generator program in AMOS
  12. * to provide a good 256 colour palette and
  13. * convert all graphics files specified
  14. * (possibly included in the game linker
  15. * program).
  16. * Possibly change the wall/floor/object
  17. * palettes to look nicer with more shades.
  18. * RE-implement stippling (if not present)
  19. * as it will look gorgeous now.
  20. *************************************************
  21.  
  22. ;MIDDLEX set 96
  23. ;RIGHTX set 191
  24. ;BOTTOMY set 160 
  25.  
  26. ;MIDDLEX set 96
  27. ;RIGHTX set 191
  28. ;BOTTOMY set 160
  29.  
  30. _break    macro
  31. ;    bkpt    \1
  32.     endm
  33.  
  34.  
  35. FILTER    macro
  36. ;    move.l    d0,-(sp)
  37. ;    move.l    #65000,d0
  38. ;.loop\@
  39. ;    bchg    #1,$bfe001
  40. ;    dbra    d0,.loop\@
  41. ;    move.l    (sp)+,d0
  42.     endm
  43.  
  44. BLACK    macro
  45.     move.w    #0,$dff180
  46.     endm
  47.  
  48. RED    macro
  49.     move.w    #$f00,$dff180
  50.     endm
  51.  
  52. FLASHER macro
  53. ;    movem.l    d1,-(sp)
  54. ;    move.w    #-1,d1
  55. ;
  56. ;loop3\@
  57. ;;    move.w    #\1,$dff180
  58. ;    nop
  59. ;    nop
  60. ;    move.w    #\2,$dff180
  61. ;    nop
  62. ;    nop
  63. ;    dbra    d1,loop3\@
  64.  
  65. ;    movem.l    (sp)+,d1
  66.  
  67.     endm
  68.  
  69. GREEN    macro
  70.     move.w    #$0f0,$dff180
  71.     endm
  72.  
  73. BLUE    macro
  74.     move.w    #$f,$dff180
  75.     endm
  76.  
  77. DataCacheOff macro
  78.     movem.l    a0-a6/d0-d7,-(sp)
  79.     move.l    4.w,a6
  80.     moveq    #0,d0
  81.     move.l    #%0000000100000000,d1
  82.     jsr    _LVOCacheControl(a6)
  83.     movem.l    (sp)+,a0-a6/d0-d7
  84.     endm
  85.  
  86. DataCacheOn macro
  87.     movem.l    a0-a6/d0-d7,-(sp)
  88.     move.l    4.w,a6
  89.     moveq    #-1,d0
  90.     move.l    #%0000000100000000,d1
  91.     jsr    _LVOCacheControl(a6)
  92.     movem.l    (sp)+,a0-a6/d0-d7
  93.     endm
  94.  
  95.     opt    P=68020
  96.  
  97.     include utils:sysinc/hardware/intbits.i
  98.  
  99. CD32VER equ 0
  100.  
  101. maxscrdiv EQU 8
  102. max3ddiv EQU 5
  103. playerheight EQU 12*1024
  104. playercrouched EQU 8*1024
  105. scrheight EQU 80
  106.  
  107. ; k/j/m
  108.  
  109. ; 4/8
  110. ; s/x
  111. ; b/n
  112.  
  113. midoffset EQU 104*4*40
  114.  
  115.  
  116.  SECTION Scrn,CODE
  117. OpenLib       equ -552
  118. CloseLib      equ -414
  119.  
  120. INTREQ        equ    $09C
  121. INTENA        equ    $09A
  122. INTENAR    equ    $01C
  123. DMACON        equ    $096
  124.  
  125. SERPER        equ    $032
  126. SERDATR    equ    $018
  127. SERDAT        equ    $030
  128. vhposr        equ $006    
  129. vhposrl    equ $007 
  130.  
  131. bltcon0    equ $40 
  132. bltcon1    equ $42
  133. bltcpt        equ $48
  134. bltbpt        equ $4c
  135. bltapt        equ $50
  136. spr0ctl    equ $142
  137. spr1ctl    equ $14a
  138. spr2ctl    equ $152
  139. spr3ctl    equ $15a
  140. spr4ctl    equ $162
  141. spr5ctl    equ $16a
  142. spr6ctl    equ $172
  143. spr7ctl    equ $17a
  144. spr0pos    equ $140
  145. spr1pos    equ $148
  146. spr2pos    equ $150
  147. spr3pos    equ $158
  148. spr4pos    equ $160
  149. spr5pos    equ $168
  150. spr6pos    equ $170
  151. spr7pos    equ $178
  152. bltdpt         equ $54
  153. bltafwm    equ $44
  154. bltalwm    equ $46
  155. bltsize         equ $58
  156. bltcmod         equ $60
  157. bltbmod         equ $62
  158. bltamod         equ $64
  159. bltdmod         equ $66
  160. diwstart        equ $8e         ; Screen hardware registers.
  161. diwstop         equ $90
  162. ddfstart        equ $92
  163. ddfstop         equ $94
  164. bplcon0         equ $100
  165. bplcon1         equ $102
  166. col0            equ $180
  167. col1            equ $182
  168. col2        equ $184
  169. col3        equ $186
  170. col4        equ $188
  171. col5        equ $18a
  172. col6        equ $18c
  173. col7        equ $18e
  174. col8            equ $190
  175. col9            equ $192
  176. col10           equ $194
  177. col11           equ $196
  178. col12           equ $198
  179. col13           equ $19a
  180. dmacon        equ $96
  181. dmaconr        equ $002
  182. intenar        equ $01c
  183. intena        equ $09a
  184. intreq        equ $09c
  185. intreqr        equ $01e
  186. intreqrl    equ $01f
  187. bpl1pth         equ $e0
  188. bpl1ptl         equ $e2
  189. bpl2pth        equ $e4
  190. bpl2ptl        equ $e6
  191. bpl3pth        equ $e8
  192. bpl3ptl        equ $ea
  193. bpl4pth        equ $ec
  194. bpl4ptl        equ $ee
  195. bpl5pth        equ $f0
  196. bpl5ptl        equ $f2
  197. bpl6pth        equ $f4
  198. bpl6ptl        equ $f6
  199. bpl7pth        equ $f8
  200. bpl7ptl        equ $fa
  201. bpl8pth        equ $fc
  202. bpl8ptl        equ $fe
  203. spr0pth        equ $120
  204. spr0ptl        equ $122
  205. spr1pth        equ $124
  206. spr1ptl        equ $126
  207. spr2pth        equ $128
  208. spr2ptl        equ $12a
  209. spr3pth        equ $12c
  210. spr3ptl        equ $12e
  211. spr4pth        equ $130
  212. spr4ptl        equ $132
  213. spr5pth        equ $134
  214. spr5ptl        equ $136
  215. spr6pth        equ $138
  216. spr6ptl        equ $13a
  217. spr7pth        equ $13c
  218. spr7ptl        equ $13e
  219. adkcon        equ   $09E
  220.  
  221.  
  222. ; move.l #length,d0
  223. ; moveq.l #2,d1    ; chipmem
  224. ; move.l 4.w,a6
  225. ; jsr allocmem(a6) = -198
  226.  
  227. ; tst.l d0
  228. ; beq.s ohbugger
  229. ; move.l d0,memaddr
  230.  
  231.  
  232. ; move.l 4.w,a6
  233. ; move.l memaddr,a1
  234. ; move.l #size,d0
  235. ; jsr freemem(a6) =-210
  236.  
  237.  
  238. ** This waits for the blitter to finish before allowing program
  239. ** execution to continue.
  240.  
  241.  
  242.  include "ab3:source_4000/protsetupdecode"
  243.  
  244.  
  245. SAVEREGS MACRO
  246.  movem.l d0-d7/a0-a6,-(a7)
  247.  ENDM
  248.  
  249. GETREGS MACRO
  250.  movem.l (a7)+,d0-d7/a0-a6
  251.  ENDM
  252.  
  253.  
  254. WB MACRO
  255. \@bf:
  256.  btst #6,dmaconr(a6)
  257.  bne.s \@bf
  258.  ENDM
  259.  
  260. WBa MACRO
  261. \@bf:
  262.  move.w #\2,$dff180
  263.  
  264.  btst #6,$bfe001
  265.  bne.s \@bf
  266. \@bz:
  267.  
  268.  move.w #$f0f,$dff180
  269.  
  270.  btst #6,$bfe001
  271.  beq.s \@bz
  272.  
  273.  ENDM
  274.  
  275. *Another version for when a6 <> dff000
  276.  
  277. WBSLOW MACRO
  278. \@bf:
  279.  btst #6,$dff000+dmaconr
  280.  bne.s \@bf
  281.  ENDM
  282.  
  283. WT MACRO
  284. \@bf:
  285.  btst #6,(a3)
  286.  bne.s \@bd
  287.  rts
  288. \@bd: 
  289.  btst #4,(a0)
  290.  beq.s \@bf
  291.  ENDM
  292.  
  293. WTNOT MACRO
  294. \@bf:
  295.  btst #6,(a3)
  296.  bne.s \@bd
  297.  rts
  298. \@bd: 
  299.  btst #4,(a0)
  300.  bne.s \@bf
  301.  ENDM
  302.  
  303. **
  304.  
  305.  include "ab3:source_4000/ProtectionProtection"
  306.  include "macros.i"
  307.  include "ab3:source_4000/defs.i"
  308.  
  309. ;wtclickk:
  310. ; btst #6,$bfe001
  311. ; bne.s wtclickk
  312.  
  313.  move.w (a0)+,LEVTOPLAY
  314.  
  315.  
  316.  jsr MakePatch
  317.  
  318. ;    FLASHER $0f0,$fff
  319.  
  320. ; PROTFCALC
  321. ; PROTGCALC
  322. ; PROTHCALC
  323. ; PROTICALC
  324. ; PROTKCALC
  325. ; PROTLCALC
  326. ; PROTMCALC
  327.  
  328.  
  329.  
  330.  move.l #$dff000,a6    ; NB V. IMPORTANT: A6=CUSTOM BASE
  331.  move.w intenar(a6),_storeint
  332.  and.w #$c000,_storeint
  333.  
  334.  move.w #13,SERPER(a6)    ;19200 baud, 8 bits, no parity
  335.  
  336.  
  337.  st GOURSEL
  338.  
  339.  move.l 4.w,a6
  340.  lea VBLANKInt(pc),a1
  341.  moveq #INTB_COPER,d0
  342.  jsr _LVOAddIntServer(a6)
  343.  
  344.     IFEQ CD32VER
  345.  move.l 4.w,a6
  346.  lea KEYInt(pc),a1
  347.  moveq #INTB_PORTS,d0
  348.  jsr _LVOAddIntServer(a6)
  349.     ENDC
  350.  
  351.  IFNE CD32VER
  352.  clr.b PLR1KEYS
  353.  clr.b PLR1PATH
  354.  clr.b PLR1MOUSE
  355.  st PLR1JOY
  356.  clr.b PLR2KEYS
  357.  clr.b PLR2PATH
  358.  clr.b PLR2MOUSE
  359.  st PLR2JOY
  360.  ELSE
  361.  st PLR1KEYS
  362.  clr.b PLR1PATH
  363.  clr.b PLR1MOUSE
  364.  clr.b PLR1JOY
  365.  st PLR2KEYS
  366.  clr.b PLR2PATH
  367.  clr.b PLR2MOUSE
  368.  clr.b PLR2JOY
  369.  ENDC
  370.  
  371.  PRSDO
  372.  
  373.  move.l #2,d1    
  374.  move.l #10280*2,d0
  375.  move.l 4.w,a6
  376.  jsr -198(a6)
  377.  move.l d0,TEXTSCRN
  378.  move.w d0,TSPTl
  379.  swap d0
  380.  move.w d0,TSPTh
  381.  swap d0
  382.  add.w #80,d0
  383.  move.w d0,TSPTl2
  384.  swap d0
  385.  move.w d0,TSPTh2
  386.  
  387.  move.l #nullspr,d0
  388.  move.w d0,txs0l
  389.  move.w d0,txs1l
  390.  move.w d0,txs2l
  391.  move.w d0,txs3l
  392.  move.w d0,txs4l
  393.  move.w d0,txs5l
  394.  move.w d0,txs6l
  395.  move.w d0,txs7l
  396.  swap d0
  397.  move.w d0,txs0h
  398.  move.w d0,txs1h
  399.  move.w d0,txs2h
  400.  move.w d0,txs3h
  401.  move.w d0,txs4h
  402.  move.w d0,txs5h
  403.  move.w d0,txs6h
  404.  move.w d0,txs7h 
  405.  
  406.  move.l #0,d1    
  407.  move.l #140000,d0
  408.  move.l 4.w,a6
  409.  jsr -198(a6)
  410.  move.l d0,LEVELDATA
  411.  
  412.  move.l #0,d1
  413.  
  414.  ifeq CHEESEY    
  415.  move.l #320*256,d0
  416.  endc
  417.  
  418.  ifne CHEESEY
  419.  move.l #320*160,d0
  420.  endc
  421.  
  422.  move.l 4.w,a6
  423.  jsr -198(a6)
  424.  move.l d0,FASTBUFFER
  425.  
  426.  
  427.  move.l #consttab,a0
  428.  moveq #1,d0
  429.  move.w #8191,d1
  430. fillconst:
  431.  
  432.  move.l #16384*64,d2
  433.  divs.l d0,d2
  434. ; ext.l d2    ;c#
  435.  move.l #64*64*65536,d3
  436.  divs.l d2,d3
  437. ; move.l d3,d4
  438. ; asr.l #6,d4
  439.  move.l d3,(a0)+    ;e#
  440.   
  441.  asr.l #1,d2    ; c#/2.0
  442.  sub.l #40*64,d2    ; d#
  443.  muls.l d3,d2    ; d#*e#
  444.  
  445.  asr.l #6,d2
  446.  move.l d2,(a0)+
  447.  
  448.  addq #1,d0
  449.  
  450.  dbra d1,fillconst
  451.  
  452.  jsr START
  453.  
  454.  rts
  455.  
  456. FASTBUFFER: dc.l 0
  457.  
  458. _storeint
  459.     dc.w 0
  460.  
  461. * Load level into buffers.
  462.  clr.b doanything
  463.  clr.b dosounds
  464.  
  465. ; DRAW TEXT SCREEN
  466.  
  467. TWEENTEXT:
  468.  
  469.  move.l #LEVELTEXT,a0
  470.  move.w PLOPT,d0
  471.  muls #82*16,d0
  472.  add.l d0,a0
  473.  
  474.  move.w #15,d7
  475.  move.w #0,d0
  476. DOWNTEXT:
  477.  move.l TEXTSCRN,a1
  478.  jsr DRAWLINEOFTEXT
  479.  addq #1,d0
  480.  add.w #82,a0
  481.  dbra d7,DOWNTEXT
  482.  rts
  483.  
  484. FONTADDRS:
  485.  dc.l ENDFONT0,CHARWIDTHS0
  486.  dc.l ENDFONT1,CHARWIDTHS1
  487.  dc.l ENDFONT2,CHARWIDTHS2
  488.  
  489. ENDFONT0:
  490.  incbin "endfont0"
  491. CHARWIDTHS0:
  492.  incbin "charwidths0"
  493. ENDFONT1:
  494. ; incbin "endfont1"
  495. CHARWIDTHS1:
  496. ; incbin "charwidths1"
  497. ENDFONT2:
  498. ; incbin "endfont2"
  499. CHARWIDTHS2:
  500. ; incbin "charwidths2"
  501.  
  502.  even
  503.  
  504. DRAWLINEOFTEXT:
  505.  movem.l d0/a0/d7,-(a7)
  506.  
  507.  muls #80*16,d0
  508.  add.l d0,a1    ; screen pointer
  509.  
  510.  move.l #FONTADDRS,a3
  511.  moveq #0,d0
  512.  move.b (a0)+,d0
  513.  move.l (a3,d0.w*8),a2
  514.  move.l 4(a3,d0.w*8),a3
  515.  
  516.  moveq #0,d4
  517.  
  518.  moveq #0,d1    ; width counter:
  519.  move.w #79,d6
  520.  tst.b (a0)+
  521.  beq.s NOTCENTRED
  522.  moveq #-1,d5
  523.  move.l a0,a4
  524.  moveq #0,d2
  525.  moveq #0,d3
  526.  move.w #79,d0    ; number of chars
  527. .addup:
  528.  addq #1,d5
  529.  move.b (a4)+,d2
  530.  move.b -32(a3,d2.w),d4
  531.  add.w d4,d3
  532.  cmp.b #32,d2
  533.  beq.s .DONTPUTIN
  534.  move.w d5,d6
  535.  move.w d3,d1
  536. .DONTPUTIN:
  537.  dbra d0,.addup
  538.  asr.w #1,d1
  539.  neg.w d1
  540.  add.w #320,d1    ; horiz pos of start x
  541.  
  542. NOTCENTRED:
  543.  
  544.  move.w d6,d7
  545. DOACHAR:
  546.  moveq #0,d2
  547.  move.b (a0)+,d2
  548.  sub.w #32,d2
  549.  moveq #0,d6
  550.  move.b (a3,d2.w),d6
  551.  asl.w #5,d2
  552.  lea (a2,d2.w),a4    ; char font
  553. val SET 0
  554.  REPT 16
  555.  move.w (a4)+,d0
  556.  bfins d0,val(a1){d1:d6}
  557. val SET val+80
  558.  ENDR
  559.  add.w d6,d1
  560.  dbra d7,DOACHAR
  561.  movem.l (a7)+,d0/a0/d7
  562.  rts 
  563.  
  564.  
  565. CLRTWEENSCRN:
  566.  move.l TEXTSCRN,a0
  567.  move.w #(10240/16)-1,d0
  568.  move.l #$0,d1
  569. .lll
  570.  move.l d1,(a0)+
  571.  move.l d1,(a0)+
  572.  move.l d1,(a0)+
  573.  move.l d1,(a0)+
  574.  move.l d1,(a0)+
  575.  move.l d1,(a0)+
  576.  move.l d1,(a0)+
  577.  move.l d1,(a0)+
  578.  dbra d0,.lll
  579.  rts
  580.  
  581. LEVTOPLAY: dc.w 0
  582.  
  583. COPYLINK: dc.l 0
  584.  
  585. PLAYTHEGAME:
  586.  
  587.  move.w #0,TXTCOLL
  588.  move.w #0,MIXCOLL
  589.  move.w #0,TOPCOLL
  590.  
  591.  bsr CLRTWEENSCRN
  592.  
  593.  cmp.b #'n',mors
  594.  bne.s .notext
  595.  bsr TWEENTEXT
  596. .notext
  597.  
  598. ;charlie 
  599.  move.l #TEXTCOP,$dff080
  600.  
  601.  move.w #$10,d0
  602.  move.w #7,d1
  603.  
  604. .fdup
  605.  move.w d0,TXTCOLL
  606.  move.w d0,MIXCOLL
  607.  add.w #$121,d0
  608. .wtframe:
  609.  btst #5,$dff000+intreqrl
  610.  beq.s .wtframe
  611.  move.w #$0020,$dff000+intreq
  612.  dbra d1,.fdup
  613.  
  614.  jsr INITCOPPERSCRN
  615.  
  616.  move.l #$dff000,a6
  617.  jsr SETPLAYERS
  618.  
  619.  move.l #0,TYPEOFMEM
  620.  move.l #LLname,a0
  621.  jsr LOADAFILE
  622.  move.l d0,LINKS
  623.  
  624.  move.l #0,TYPEOFMEM
  625.  move.l #LLFname,a0
  626.  jsr LOADAFILE
  627.  move.l d0,FLYLINKS
  628.  
  629. ; Get level memory.
  630.  
  631.  move.l #1,d1
  632.  move.l #40000,d0
  633.  move.l 4.w,a6
  634.  jsr -198(a6)
  635.  move.l d0,LEVELGRAPHICS
  636.  
  637.  move.l #1,d1
  638.  move.l #40000,d0
  639.  move.l 4.w,a6
  640.  jsr -198(a6)
  641.  move.l d0,LEVELCLIPS
  642.  
  643.  move.l #2,d1
  644.  move.l #70000,d0
  645.  move.l 4.w,a6
  646.  jsr -198(a6)
  647.  move.l d0,LEVELMUSIC
  648.  
  649.  move.l #$dff000,a6
  650.  
  651. ; move.b LEVTOPLAY,d0
  652. ; move.b d0,LEVA
  653. ; move.b d0,LEVB
  654. ; move.b d0,LEVC
  655. ; move.b d0,LEVD
  656. ; move.b d0,LEVE
  657.  
  658.  
  659. ; move.l #LEVELDATAD,LEVELDATA
  660. ; move.l #LEVELGRAPHICSD,LEVELGRAPHICS
  661. ; move.l #LEVELCLIPSD,LEVELCLIPS
  662.  
  663. ; bra noload
  664.  
  665. *********************************
  666.  
  667. ; move.l doslib,a6
  668. ; move.l #LLname,d1
  669. ; move.l #1005,d2
  670. ; jsr -30(a6)
  671. ; move.l d0,LLhandle
  672. ;
  673. ; move.l doslib,a6
  674. ; move.l d0,d1
  675. ; move.l #LINKS,d2
  676. ; move.l #10000,d3
  677. ; jsr -42(a6)
  678. ;
  679. ; move.l doslib,a6
  680. ; move.l LLhandle,d1
  681. ; jsr -36(a6)
  682.  
  683.  ********************************
  684.  
  685. ; move.l doslib,a6
  686. ; move.l #LLFname,d1
  687. ; move.l #1005,d2
  688. ; jsr -30(a6)
  689. ; move.l d0,LLhandle
  690.  
  691. ; move.l doslib,a6
  692. ; move.l d0,d1
  693. ; move.l #FLYLINKS,d2
  694. ; move.l #10000,d3
  695. ; jsr -42(a6)
  696.  
  697. ; move.l doslib,a6
  698. ; move.l LLhandle,d1
  699. ; jsr -36(a6)
  700.  
  701.  ************************
  702.  ********
  703.  
  704.  moveq #0,d1
  705.  move.b LEVA,d1
  706.  sub.b #'a',d1
  707.  lsl.w #6,d1
  708.  move.l LINKFILE,a6
  709.  add.l #LevelMusic,a6
  710.  add.l d1,a6
  711.  move.l a6,d1
  712.  
  713.  move.l doslib,a6
  714.  
  715.  move.l #1005,d2
  716.  jsr -30(a6)
  717.  move.l d0,LDhandle
  718.  
  719.  move.l doslib,a6
  720.  move.l d0,d1
  721.  move.l LEVELCLIPS,d2
  722.  move.l #40000,d3
  723.  jsr -42(a6)
  724.  
  725.  move.l doslib,a6
  726.  move.l LDhandle,d1
  727.  jsr -36(a6)
  728.  
  729. *************************************
  730.     move.l    LEVELCLIPS,d0
  731.     moveq    #0,d1
  732.     move.l LEVELMUSIC,a0
  733.     lea    WorkSpace,a1
  734.     lea    $0,a2
  735.     jsr    unLHA
  736. *************************************
  737.  
  738.  
  739.  move.l doslib,a6
  740.  move.l #LDname,d1
  741.  move.l #1005,d2
  742.  jsr -30(a6)
  743.  move.l d0,LDhandle
  744.  
  745.  move.l doslib,a6
  746.  move.l d0,d1
  747.  move.l LEVELCLIPS,d2
  748.  move.l #40000,d3
  749.  jsr -42(a6)
  750.  
  751.  move.l doslib,a6
  752.  move.l LDhandle,d1
  753.  jsr -36(a6)
  754.  
  755. *************************************
  756.     move.l    LEVELCLIPS,d0
  757.     moveq    #0,d1
  758.     move.l LEVELDATA,a0
  759.     lea    WorkSpace,a1
  760.     lea    $0,a2
  761.     jsr    unLHA
  762. *************************************
  763.  
  764. ********
  765.  
  766.  move.l doslib,a6
  767.  move.l #LGname,d1
  768.  move.l #1005,d2
  769.  jsr -30(a6)
  770.  move.l d0,LGhandle
  771.  
  772.  move.l doslib,a6
  773.  move.l d0,d1
  774.  move.l LEVELCLIPS,d2
  775.  move.l #40000,d3
  776.  jsr -42(a6)
  777.  
  778.  move.l doslib,a6
  779.  move.l LGhandle,d1
  780.  jsr -36(a6)
  781.  
  782. *************************************
  783.     move.l    LEVELCLIPS,d0
  784.     moveq    #0,d1
  785.     move.l LEVELGRAPHICS,a0
  786.     lea    WorkSpace,a1
  787.     lea    $0,a2
  788.     jsr    unLHA
  789. *************************************
  790.  
  791. ********
  792.  
  793.  move.l doslib,a6
  794.  move.l #LCname,d1
  795.  move.l #1005,d2
  796.  jsr -30(a6)
  797.  move.l d0,LChandle
  798.  
  799.  move.l doslib,a6
  800.  move.l d0,d1
  801.  move.l #WorkSpace+16384,d2
  802.  move.l #16000,d3
  803.  jsr -42(a6)
  804.  
  805.  move.l doslib,a6
  806.  move.l LChandle,d1
  807.  jsr -36(a6)
  808.  
  809. *************************************
  810.     move.l    #WorkSpace+16384,d0
  811.     moveq    #0,d1
  812.     move.l LEVELCLIPS,a0
  813.     lea    WorkSpace,a1
  814.     lea    $0,a2
  815.     jsr    unLHA
  816. *************************************
  817.  
  818.  
  819. *******
  820.  
  821. noload:
  822.  
  823. ********
  824.  
  825. ; move.l doslib,a6
  826. ; move.l #Prefsname,d1
  827. ; move.l #1005,d2
  828. ; jsr -30(a6)
  829. ; move.l d0,Prefshandle
  830.  
  831. ; move.l doslib,a6
  832. ; move.l d0,d1
  833. ; move.l #Prefsfile,d2
  834. ; move.l #50,d3
  835. ; jsr -42(a6)
  836.  
  837. ; move.l doslib,a6
  838. ; move.l Prefshandle,d1
  839. ; jsr -36(a6)
  840.  
  841. *******
  842.  
  843.  IFNE CD32VER
  844.  move.l doslib,a6
  845.  move.l #115,d1
  846.  jsr -198(a6)
  847.  ENDC
  848.  
  849.  
  850. ; move.l doslib,d0
  851. ; move.l d0,a1
  852. ; move.l 4.w,a6
  853. ; jsr CloseLib(a6)
  854.  
  855.  move.l #$dff000,a6
  856.  
  857. charlie:
  858. ; jmp  ENDGAMESCROLL
  859.  
  860.     move.w #$87c0,dmacon(a6)
  861.  
  862.     move.w    #%1000000000100000,dmacon(a6)
  863.  
  864. ; move.w intenar(a6),saveinters
  865.     
  866.     move.w #%00101111,intena(a6)
  867.  
  868.     move.w #255,adkcon(a6)
  869.  
  870.  
  871. *** Put myself in supervisor mode
  872.  
  873.  bra blag
  874. ; move.l $6c,d0
  875. ; move.l #blag,$6c
  876. ; move.w #$8010,intreq(a6)
  877.  
  878.  rts
  879.  
  880. saveit: ds.l 10
  881. doslibname: dc.b 'dos.library',0
  882.  even
  883. doslib: dc.l 0
  884.  
  885. mors: dc.w 0
  886.  
  887. LDname: dc.b 'tkg2:levels/level_'
  888. LEVA:
  889.  dc.b 'a/twolev.bin',0
  890.  even
  891. LDhandle: dc.l 0
  892. LGname: dc.b 'tkg2:levels/level_'
  893. LEVB:
  894.  dc.b 'a/twolev.graph.bin',0
  895.  even
  896. LGhandle: dc.l 0
  897. LCname: dc.b 'tkg2:levels/level_'
  898. LEVC:
  899.  dc.b 'a/twolev.clips',0
  900.  even
  901. LChandle: dc.l 0
  902. LLname: dc.b 'tkg2:levels/level_'
  903. LEVD:
  904.  dc.b 'a/twolev.map',0
  905.  even
  906. LLFname: dc.b 'tkg2:levels/level_'
  907. LEVE:
  908.  dc.b 'a/twolev.flymap',0
  909.  even
  910. LLhandle: dc.l 0
  911.  
  912.     cnop    0,4
  913.  
  914. Prefsname: dc.b 'ram:prefs',0
  915.  even
  916. Prefshandle: dc.l 0
  917.  
  918.  
  919.  even
  920.  
  921.  cnop 0,4
  922.  
  923. VBLANKInt
  924.  dc.l 0,0
  925.  dc.b NT_INTERRUPT,9
  926.  dc.l Prefsname
  927.  dc.l 0
  928.  dc.l Chan0inter
  929.  
  930.  
  931. KEYInt
  932.  dc.l 0,0
  933.  dc.b NT_INTERRUPT,127
  934.  dc.l Prefsname
  935.  dc.l 0
  936.  dc.l key_interrupt
  937.  
  938.  
  939. blag:
  940. ; move.w #$10,intreq(a6)
  941. ; move.l d0,$6c
  942. ; move.w #$7fff,intena(a6)
  943.  
  944. ; move.w #$20,$dff1dc
  945.  
  946. ; move.l 4.w,a6
  947. ; lea VBLANKInt(pc),a1
  948. ; moveq #INTB_COPER,d0
  949. ; jsr _LVOAddIntServer(a6)
  950.  
  951. ****************************
  952. * Initialize level
  953. ****************************
  954. * Poke all clip offsets into
  955. * correct bit of level data.
  956. ****************************
  957.  move.l LEVELGRAPHICS,a0
  958.  move.l 12(a0),a1
  959.  add.l a0,a1
  960.  move.l a1,ZoneGraphAdds
  961.  move.l (a0),a1
  962.  add.l a0,a1
  963.  move.l a1,DoorData
  964.  move.l 4(a0),a1
  965.  add.l a0,a1
  966.  move.l a1,LiftData
  967.  move.l 8(a0),a1
  968.  add.l a0,a1
  969.  move.l a1,SwitchData
  970.  adda.w #16,a0
  971.  move.l a0,ZoneAdds
  972.  
  973.  move.l LEVELDATA,a4
  974.  lea 160*10(a4),a1
  975.  
  976.  lea 54(a1),a2
  977.  move.l a2,CPtPos
  978.  move.w 12(a1),NumCPts
  979.  move.w 14(a1),NumLevPts
  980.  
  981.  move.l 16+6(a1),a2
  982.  add.l a4,a2
  983.  move.l a2,Points
  984.  move.w 8+6(a1),d0
  985.  lea 4(a2,d0.w*4),a2
  986.  move.l a2,PointBrights
  987.  move.w 16(a1),d0
  988.  addq #1,d0
  989.  muls #80,d0
  990.  add.l d0,a2
  991.  move.l a2,ZoneBorderPts
  992.  
  993.  move.l 20+6(a1),a2
  994.  add.l a4,a2
  995.  move.l a2,FloorLines
  996.  move.w -2(a2),ENDZONE
  997.  move.l 24+6(a1),a2
  998.  add.l a4,a2
  999.  move.l a2,ObjectData
  1000. *****************************************
  1001. * Just for charles
  1002.  
  1003. ; move.w #$6060,6(a2)
  1004. ; move.l #$d0000,8(a2)
  1005. ; sub.w #40,4(a2)
  1006. ; move.w #45*256+45,14(a2)
  1007. ****************************************
  1008.  move.l 28+6(a1),a2
  1009.  add.l a4,a2
  1010.  move.l a2,PlayerShotData
  1011.  move.l 32+6(a1),a2
  1012.  add.l a4,a2
  1013.  move.l a2,NastyShotData
  1014.  
  1015.  add.l #64*20,a2
  1016.  move.l a2,OtherNastyData
  1017.  
  1018.  move.l 36+6(a1),a2
  1019.  add.l a4,a2
  1020.  move.l a2,ObjectPoints  
  1021.  move.l 40+6(a1),a2
  1022.  add.l a4,a2
  1023.  move.l a2,PLR1_Obj
  1024.  move.l 44+6(a1),a2
  1025.  add.l a4,a2
  1026.  move.l a2,PLR2_Obj
  1027.  move.w 14+6(a1),NumObjectPoints
  1028.  
  1029. ; bra noclips
  1030.   
  1031.  move.l LEVELCLIPS,a2
  1032.  moveq #0,d0
  1033.  move.w 10+6(a1),d7    ;numzones
  1034.  move.w d7,NUMZONES
  1035. assignclips:
  1036.  move.l (a0)+,a3
  1037.  add.l a4,a3    ; pointer to a zone
  1038.  adda.w #ToListOfGraph,a3 ; pointer to zonelist
  1039. dowholezone:
  1040.  tst.w (a3)
  1041.  blt.s nomorethiszone
  1042.  tst.w 2(a3)
  1043.  blt.s thisonenull
  1044.  
  1045.  move.l d0,d1
  1046.  asr.l #1,d1
  1047.  move.w d1,2(a3)
  1048.  
  1049. findnextclip:
  1050.  cmp.w #-2,(a2,d0.l)
  1051.  beq.s foundnextclip
  1052.  addq.l #2,d0
  1053.  bra.s findnextclip
  1054. foundnextclip
  1055.  addq.l #2,d0
  1056.  
  1057. thisonenull:
  1058.  addq #8,a3 
  1059.  bra.s dowholezone
  1060. nomorethiszone:
  1061.  dbra d7,assignclips
  1062.  
  1063.  lea (a2,d0.l),a2
  1064.  move.l a2,CONNECT_TABLE
  1065.  
  1066. noclips:
  1067.  
  1068. * Put in addresses of glowything
  1069.  
  1070.  
  1071. ************************************
  1072.  
  1073. ; cmp.b #'k',Prefsfile
  1074. ; bne.s nkb
  1075.  
  1076. ;nkb:
  1077. ; cmp.b #'m',Prefsfile
  1078. ; bne.s nmc
  1079. ; clr.b PLR1KEYS
  1080. ; clr.b PLR1PATH
  1081. ; st PLR1MOUSE
  1082. ; clr.b PLR1JOY
  1083. ;nmc:
  1084. ; cmp.b #'j',Prefsfile
  1085. ; bne.s njc
  1086. ; clr.b PLR1KEYS
  1087. ; clr.b PLR1PATH
  1088. ; clr.b PLR1MOUSE
  1089. ; st PLR1JOY
  1090. ;njc:
  1091.  
  1092.  clr.b PLR1_StoodInTop
  1093.  move.l #playerheight,PLR1s_height
  1094.  
  1095.  move.l #empty,pos1LEFT
  1096.  move.l #empty,pos2LEFT
  1097.  move.l #empty,pos1RIGHT
  1098.  move.l #empty,pos2RIGHT
  1099.  move.l #empty,pos0LEFT
  1100.  move.l #empty,pos3LEFT
  1101.  move.l #empty,pos0RIGHT
  1102.  move.l #empty,pos3RIGHT
  1103.  move.l #emptyend,Samp0endLEFT
  1104.  move.l #emptyend,Samp1endLEFT
  1105.  move.l #emptyend,Samp0endRIGHT
  1106.  move.l #emptyend,Samp1endRIGHT
  1107.  move.l #emptyend,Samp2endLEFT
  1108.  move.l #emptyend,Samp3endLEFT
  1109.  move.l #emptyend,Samp2endRIGHT
  1110.  move.l #emptyend,Samp3endRIGHT
  1111.  
  1112.  
  1113.  move.l #nullline,d0
  1114.  move.w d0,n1l
  1115.  swap d0
  1116.  move.w d0,n1h
  1117.  
  1118.  move.l Panel,d0
  1119.  move.w d0,p1l
  1120.  swap d0
  1121.  move.w d0,p1h
  1122.  swap d0
  1123.  add.l #40,d0
  1124.  move.w d0,p2l
  1125.  swap d0
  1126.  move.w d0,p2h
  1127.  swap d0
  1128.  add.l #40,d0
  1129.  move.w d0,p3l
  1130.  swap d0
  1131.  move.w d0,p3h
  1132.  swap d0
  1133.  add.l #40,d0
  1134.  move.w d0,p4l
  1135.  swap d0
  1136.  move.w d0,p4h
  1137.  swap d0
  1138.  add.l #40,d0
  1139.  move.w d0,p5l
  1140.  swap d0
  1141.  move.w d0,p5h
  1142.  swap d0
  1143.  add.l #40,d0
  1144.  move.w d0,p6l
  1145.  swap d0
  1146.  move.w d0,p6h
  1147.  swap d0
  1148.  add.l #40,d0
  1149.  move.w d0,p7l
  1150.  swap d0
  1151.  move.w d0,p7h
  1152.  swap d0
  1153.  add.l #40,d0
  1154.  move.w d0,p8l
  1155.  swap d0
  1156.  move.w d0,p8h
  1157.  
  1158. *******************************
  1159. * TIMER SCREEN SETUP
  1160. ; move.l #TimerScr,d0
  1161. ; move.w d0,p1l
  1162. ; swap d0
  1163. ; move.w d0,p1h
  1164. ; move.w #$1201,Panelcon
  1165.  
  1166. ; move.l #borders,d0
  1167. ; move.w d0,s0l
  1168. ; swap d0
  1169. ; move.w d0,s0h
  1170. ; move.l #borders+2592,d0
  1171. ; move.w d0,s1l
  1172. ; swap d0
  1173. ; move.w d0,s1h
  1174. ; move.l #borders+2592*2,d0
  1175. ; move.w d0,s2l
  1176. ; swap d0
  1177. ; move.w d0,s2h
  1178. ; move.l #borders+2592*3,d0
  1179. ; move.w d0,s3l
  1180. ; swap d0
  1181. ; move.w d0,s3h
  1182.  
  1183.  move.l #nullspr,d0
  1184.  move.w d0,s0l
  1185.  move.w d0,s1l
  1186.  move.w d0,s2l
  1187.  move.w d0,s3l
  1188.  
  1189.  move.w d0,s4l
  1190.  move.w d0,s5l
  1191.  move.w d0,s6l
  1192.  move.w d0,s7l
  1193.  swap d0
  1194.  
  1195.  move.w d0,s0h
  1196.  move.w d0,s1h
  1197.  move.w d0,s2h
  1198.  move.w d0,s3h
  1199.  
  1200.  move.w d0,s4h
  1201.  move.w d0,s5h
  1202.  move.w d0,s6h
  1203.  move.w d0,s7h 
  1204.  
  1205.  
  1206. ; move.w #52*256+64,borders
  1207. ; move.w #212*256+0,borders+8
  1208. ; move.w #52*256+64,borders+2592
  1209. ; move.w #212*256+128,borders+8+2592
  1210. ; move.w #52*256+192,borders+2592*2
  1211. ; move.w #212*256+0,borders+8+2592*2
  1212. ; move.w #52*256+192,borders+2592*3
  1213. ; move.w #212*256+128,borders+8+2592*3
  1214.  
  1215.  move.l #FacePlace,d0
  1216.  move.w d0,f1l
  1217.  swap d0
  1218.  move.w d0,f1h
  1219.  move.l #FacePlace+32*24,d0
  1220.  move.w d0,f2l
  1221.  swap d0
  1222.  move.w d0,f2h
  1223.  move.l #FacePlace+32*24*2,d0
  1224.  move.w d0,f3l
  1225.  swap d0
  1226.  move.w d0,f3h
  1227.  move.l #FacePlace+32*24*3,d0
  1228.  move.w d0,f4l
  1229.  swap d0
  1230.  move.w d0,f4h
  1231.  move.l #FacePlace+32*24*4,d0
  1232.  move.w d0,f5l
  1233.  swap d0
  1234.  move.w d0,f5h
  1235.   
  1236.  
  1237.  move.l #bigfield,d0
  1238.  move.w d0,ocl
  1239.  swap d0
  1240.  move.w d0,och
  1241.  
  1242.  bset.b #1,$bfe001
  1243.  
  1244. ; jmp stuff
  1245. ;endstuff:
  1246.  
  1247.  move.w #$00ff,$dff09e
  1248.  
  1249. ; move.l #Blurbfield,$dff080
  1250.  
  1251.  move.w #0,d0
  1252.  
  1253.  move.l scrn,d0
  1254.  move.w d0,pl1l
  1255.  swap d0
  1256.  move.w d0,pl1h
  1257.  
  1258.  swap d0
  1259.  add.l #10240,d0
  1260.  move.w d0,pl2l
  1261.  swap d0
  1262.  move.w d0,pl2h
  1263.  
  1264.  swap d0
  1265.  add.l #10240,d0
  1266.  move.w d0,pl3l
  1267.  swap d0
  1268.  move.w d0,pl3h
  1269.  
  1270.  swap d0
  1271.  add.l #10240,d0
  1272.  move.w d0,pl4l
  1273.  swap d0
  1274.  move.w d0,pl4h
  1275.  
  1276.  swap d0
  1277.  add.l #10240,d0
  1278.  move.w d0,pl5l
  1279.  swap d0
  1280.  move.w d0,pl5h
  1281.  
  1282.  swap d0
  1283.  add.l #10240,d0
  1284.  move.w d0,pl6l
  1285.  swap d0
  1286.  move.w d0,pl6h
  1287.  
  1288.  swap d0
  1289.  add.l #10240,d0
  1290.  move.w d0,pl7l
  1291.  swap d0
  1292.  move.w d0,pl7h
  1293.  
  1294.  swap d0
  1295.  add.l #10240,d0
  1296.  move.w d0,pl8l
  1297.  swap d0
  1298.  move.w d0,pl8h
  1299.  
  1300.  
  1301. ****************************
  1302.  jsr INITPLAYER
  1303. ; bsr initobjpos
  1304. ****************************
  1305.  
  1306.  
  1307.  move.l #$dff000,a6
  1308.  
  1309.  move.l #null,$dff0a0
  1310.  move.w #100,$dff0a4
  1311.  move.w #443,$dff0a6
  1312.  move.w #63,$dff0a8
  1313.  
  1314.  move.l #null2,$dff0b0
  1315.  move.w #100,$dff0b4
  1316.  move.w #443,$dff0b6
  1317.  move.w #63,$dff0b8
  1318.  
  1319.  move.l #null4,$dff0c0
  1320.  move.w #100,$dff0c4
  1321.  move.w #443,$dff0c6
  1322.  move.w #63,$dff0c8
  1323.  
  1324.  move.l #null3,$dff0d0
  1325.  move.w #100,$dff0d4
  1326.  move.w #443,$dff0d6
  1327.  move.w #63,$dff0d8
  1328.  
  1329.  ifeq CHEESEY
  1330.  
  1331.  move.l #tab,a1
  1332.  move.w #64,d7
  1333.  move.w #0,d6
  1334. outerlop
  1335.  move.l #pretab,a0
  1336.  move.w #255,d5
  1337. scaledownlop:
  1338.  move.b (a0)+,d0
  1339.  ext.w d0
  1340.  ext.l d0
  1341.  muls d6,d0
  1342.  asr.l #6,d0
  1343.  move.b d0,(a1)+
  1344.  dbra d5,scaledownlop
  1345.  addq #1,d6
  1346.  dbra d7,outerlop
  1347.  
  1348.  endc
  1349.  
  1350.  move.l #$dff000,a6
  1351.  
  1352.  move.w #$c008,intena(a6)
  1353.  
  1354.  move.w #$f,dmacon(a6)
  1355.  move.w #$820f,dmacon(a6)
  1356.  
  1357. ; bsr protinit
  1358.  
  1359.  
  1360. ; move.w #$20,$1dc(a6)
  1361.  
  1362.  move.w #$0,$dff034
  1363.  move.w #0,Conditions
  1364.  
  1365.  cmp.b #'n',mors
  1366.  beq.s .nokeys
  1367.  move.w #%111111111111,Conditions
  1368. .nokeys:
  1369.  
  1370.  move.l #KeyMap,a5
  1371.  clr.b $45(a5)
  1372.  
  1373.  move.l LEVELMUSIC,mt_data
  1374.  clr.b UseAllChannels
  1375.  
  1376. ; cmp.b #'b',Prefsfile+3
  1377. ; bne.s .noback
  1378.  
  1379. *********************************
  1380.  
  1381.  st CHANNELDATA
  1382.  jsr mt_init
  1383.  
  1384. *********************************
  1385.  
  1386.  
  1387. ;.noback:
  1388.  
  1389.  
  1390. ;
  1391. ; clr.b CHANNELDATA
  1392. ; clr.b CHANNELDATA+8
  1393. ; clr.b CHANNELDATA+16
  1394. ; clr.b CHANNELDATA+24
  1395. ;
  1396. ; cmp.b #'b',Prefsfile+3
  1397. ; bne.s noreserve
  1398. ;
  1399.  st CHANNELDATA
  1400.  st CHANNELDATA+8
  1401. ; st CHANNELDATA+16
  1402. ; st CHANNELDATA+24
  1403. ;noreserve: 
  1404.  
  1405. ; st CHANNELDATA
  1406. ; st CHANNELDATA+8
  1407.  
  1408.  move.l SampleList+6*8,pos0LEFT
  1409.  move.l SampleList+6*8+4,Samp0endLEFT
  1410.  move.l #playerheight,PLR1s_targheight
  1411.  move.l #playerheight,PLR1s_height
  1412.  move.l #playerheight,PLR2s_targheight
  1413.  move.l #playerheight,PLR2s_height
  1414.  
  1415. ; cmp.b #'n',mors
  1416. ; beq.s nohandshake
  1417. ;
  1418. ; move.b #%11011000,$bfd200
  1419. ; move.b #%00010000,$bfd000
  1420. ;waitloop:
  1421. ; btst.b #4,$bfd000
  1422. ; bne.s waitloop
  1423. ; move.b #%11000000,$bfd200
  1424.  
  1425. ;wtmouse:
  1426. ; btst #6,$bfe001
  1427. ; bne.s wtmouse
  1428.  
  1429. ;nohandshake:
  1430.  
  1431. ; jmp end
  1432.  
  1433. ; move.l COPSCRN1,drawpt
  1434. ; move.l COPSCRN2,olddrawpt
  1435.  
  1436.  jsr CLEARKEYBOARD
  1437. ; jsr MAKEBACKROUT
  1438.  
  1439.  clr.b MASTERQUITTING
  1440.  
  1441.  cmp.b #'n',mors
  1442.  seq SLAVEQUITTING
  1443.  
  1444. ; move.w #200,PLAYERTWOHEALTH
  1445. ; move.w #200,PLAYERONEHEALTH
  1446.  
  1447. ; move.l #ANOTHERSUP,$80
  1448. ; trap #0
  1449. ; rts
  1450. ;
  1451. ;ANOTHERSUP:
  1452.  
  1453.  move.l $4.w,a6
  1454.  jsr _LVOSuperState(a6)
  1455.  move.l d0,SSTACK
  1456.  
  1457.  CACHE_FREEZE_OFF d2
  1458.  
  1459. ; charlie
  1460. ; DATA_CACHE_ON d2
  1461.  
  1462.  DataCacheOn
  1463.  
  1464.  move.l $4.w,a6
  1465.  move.l SSTACK,d0
  1466.  jsr _LVOUserState(a6)
  1467.  
  1468.  move.l #0,hitcol
  1469.  
  1470.  cmp.b #'n',mors
  1471.  bne.s NOCLTXT
  1472.  
  1473.  move.b #0,lastpressed
  1474. .wtpress
  1475.  btst #6,$bfe001
  1476.  beq.s CLOSETXT
  1477.  btst #7,$bfe001
  1478.  beq.s CLOSETXT
  1479.  tst.b lastpressed
  1480.  beq.s .wtpress
  1481.  
  1482. CLOSETXT:
  1483.  
  1484.  move.w #$8f8,d0
  1485.  move.w #7,d1
  1486.  
  1487. .fdup
  1488.  move.w d0,TXTCOLL
  1489.  move.w d0,MIXCOLL
  1490.  sub.w #$121,d0
  1491. .wtframe:
  1492.  btst #5,$dff000+intreqrl
  1493.  beq.s .wtframe
  1494.  move.w #$0020,$dff000+intreq
  1495.  dbra d1,.fdup
  1496.  
  1497.  move.w #0,TXTCOLL
  1498.  move.w #0,MIXCOLL
  1499.  
  1500. NOCLTXT:
  1501.  
  1502.  
  1503.  
  1504.     move.l    4.w,a6
  1505.     jsr    _LVOForbid(a6)
  1506. ;    jsr    _LVODisable(a6)
  1507.  
  1508.  
  1509. ;    move.w    #%0111111111111111,intena+$dff000
  1510. ;    move.w    #%1000000011111111,intena+$dff000
  1511.  
  1512.  
  1513. ;charlie 
  1514.  move.l #PALETTEBIT,$dff084
  1515.  move.l #bigfield,$dff080    ; Point the copper at our copperlist.
  1516.  
  1517.  
  1518.  clr.b PLR1_Ducked
  1519.  clr.b PLR2_Ducked
  1520.  clr.b p1_ducked
  1521.  clr.b p2_ducked
  1522.  
  1523. ********************************************
  1524.  
  1525. ;    jmp docredits
  1526.  
  1527. ********************************************
  1528.  
  1529.  
  1530.  st doanything
  1531.  st dosounds
  1532.  
  1533.  jsr CLRNASTYMEM
  1534.  
  1535.  move.l #COMPACTMAP,a0
  1536.  move.l a0,LASTZONE
  1537.  move.w #255,d0
  1538. .clrmap
  1539.  move.l #0,(a0)+
  1540.  dbra d0,.clrmap
  1541.  
  1542.  move.l #COMPACTMAP,a0
  1543.  move.l #BIGMAP,a1
  1544.  
  1545.  bra NOALLWALLS
  1546.  
  1547.  move.l ZoneGraphAdds,a2
  1548. DOALLWALLS:
  1549.  move.l (a2),d0
  1550.  beq.s nomorezones
  1551.  move.l d0,a3
  1552.  
  1553.  addq #8,a2
  1554.  
  1555.  add.l LEVELGRAPHICS,a3
  1556.  addq #2,a3
  1557.  move.l a1,a4
  1558.  
  1559. ; DOLOWERROOM
  1560.  
  1561. innerwalls:
  1562.  move.b (a3),d1
  1563.  move.b 1(a3),d0
  1564.  bne doneinner
  1565.  
  1566.  tst.b d1
  1567.  blt noid
  1568.  
  1569.  move.b d1,d3
  1570.  and.w #15,d1
  1571.  
  1572.  moveq #0,d0
  1573.  move.w d1,d2
  1574.  add.w d1,d1
  1575.  add.w d2,d1
  1576.  addq #1,d1
  1577.  bset d1,d0
  1578.  btst #4,d3
  1579.  beq.s .nodoor
  1580.  addq #1,d1
  1581.  bset d1,d0
  1582. .nodoor
  1583.  
  1584.  or.l d0,(a0)
  1585.  
  1586.  move.w 2(a3),(a4)
  1587.  move.w 4(a3),2(a4)
  1588.  
  1589. noid:
  1590.  
  1591.  add.w #30,a3
  1592.  addq #4,a4
  1593.  
  1594.  bra innerwalls
  1595.  
  1596. doneinner:
  1597.  
  1598.  add.w #40,a1
  1599.  addq #4,a0
  1600.  
  1601.  bra DOALLWALLS
  1602. nomorezones:
  1603.  
  1604. NOALLWALLS
  1605.  
  1606.  move.w #96,MIDDLEX
  1607.  move.w #192,RIGHTX
  1608.  move.w #160,BOTTOMY
  1609.  move.w #80,TOTHEMIDDLE
  1610.  clr.b FULLSCR
  1611.  move.l scrn,a0
  1612.  jsr WIPEDISPLAY
  1613.  move.l scrn2,a0
  1614.  jsr WIPEDISPLAY
  1615.  
  1616.  st PLAYERONEGUNS+1
  1617.  st PLAYERTWOGUNS+1
  1618.  
  1619.  move.w #100,timetodamage
  1620.  
  1621.  move.w #299,d0
  1622.  move.l #DAMAGED,a0
  1623. CLRDAM:
  1624.  move.w #0,(a0)+
  1625.  dbra d0,CLRDAM
  1626.  
  1627.  moveq #0,d0
  1628.  move.w d0,STOPOFFSET
  1629.  neg.w d0
  1630.  add.w TOTHEMIDDLE,d0
  1631.  move.w d0,SMIDDLEY
  1632.  muls #320,d0
  1633.  move.l d0,SBIGMIDDLEY
  1634.  
  1635.  move.w #0,PLR1_AIMSPD
  1636.  move.w #0,PLR2_AIMSPD
  1637.  
  1638.  move.l scrn,SCRNSHOWPT
  1639.  
  1640.  move.l scrn2,SCRNDRAWPT
  1641.  
  1642.  
  1643.  
  1644.  move.l #MESSAGEBUFFER,a0
  1645.  move.w #19,d0
  1646. clrmessbuff:
  1647.  move.l #0,(a0)+
  1648.  dbra d0,clrmessbuff
  1649.  
  1650.  move.l #nullmessage,d0
  1651.  jsr SENDMESSAGE
  1652.  
  1653. lop:
  1654.  
  1655. ****************************
  1656. ; move.w #400,PLAYERONEHEALTH
  1657. ****************************
  1658.  
  1659.  move.w #%110000000000,$dff034
  1660.  
  1661. ; move.w COUNTER,d0
  1662. ; ext.l d0
  1663. ; divs #10,d0
  1664. ; swap d0
  1665. ; add.b #'0',d0
  1666. ; move.b d0,COUNTSPACE+2
  1667. ; swap d0
  1668. ; ext.l d0
  1669. ; divs #10,d0
  1670. ; swap d0
  1671. ; add.b #'0',d0
  1672. ; move.b d0,COUNTSPACE+1
  1673. ; swap d0
  1674. ; add.b #'0',d0
  1675. ; move.b d0,COUNTSPACE
  1676. ;
  1677. ; move.w COUNTER2,d0
  1678. ; ext.l d0
  1679. ; divs #10,d0
  1680. ; swap d0
  1681. ; add.b #'0',d0
  1682. ; move.b d0,COUNTSPACE+5
  1683. ; swap d0
  1684. ; ext.l d0
  1685. ; divs #10,d0
  1686. ; swap d0
  1687. ; add.b #'0',d0
  1688. ; move.b d0,COUNTSPACE+4
  1689. ; swap d0
  1690. ; add.b #'0',d0
  1691. ; move.b d0,COUNTSPACE+3
  1692.  
  1693. ;
  1694. ; move.l #COUNTSPACE,d0
  1695. ; jsr SENDMESSAGE
  1696. ;
  1697. ; move.w #0,COUNTER
  1698. ; move.w #0,COUNTER2
  1699.  
  1700.  move.b MAPON,REALMAPON
  1701.  
  1702.  move.b FULLSCRTEMP,d0
  1703.  move.b FULLSCR,d1
  1704.  eor.b d1,d0
  1705.  beq .notswapscr2
  1706.  
  1707.  move.b FULLSCRTEMP,FULLSCR
  1708.  beq.s .notswapscr3
  1709.  
  1710.  cmp.w #100,WIDESCRN
  1711.  blt.s .okwidee
  1712.  move.w #100,WIDESCRN
  1713. .okwidee:
  1714.  
  1715.  move.w #144,MIDDLEX
  1716.  move.w #288,RIGHTX
  1717.  move.w #232,BOTTOMY
  1718.  move.w #120,TOTHEMIDDLE
  1719.  move.l SCRNSHOWPT,a0
  1720.  jsr WIPEDISPLAY
  1721.  move.l SCRNDRAWPT,a0
  1722.  jsr WIPEDISPLAY
  1723.  
  1724.  bra.s .notswapscr2
  1725.  
  1726. .notswapscr3:
  1727.  cmp.w #60,WIDESCRN
  1728.  blt.s .okwide
  1729.  move.w #60,WIDESCRN
  1730. .okwide:
  1731.  
  1732.  
  1733.  move.w #96,MIDDLEX
  1734.  move.w #192,RIGHTX
  1735.  move.w #160,BOTTOMY
  1736.  move.w #80,TOTHEMIDDLE
  1737.  move.l SCRNSHOWPT,a0
  1738.  jsr WIPEDISPLAY
  1739.  move.l SCRNDRAWPT,a0
  1740.  jsr WIPEDISPLAY
  1741. .notswapscr2:
  1742.  
  1743.  
  1744.  btst #6,$bfe001
  1745. ;charlie bne.b .nocop
  1746.  
  1747. ;charlie move.l #bigfield,$dff080    ; Point the copper at our copperlist.
  1748.  
  1749. .nocop
  1750.  
  1751.  move.l #KeyMap,a5
  1752.  
  1753.  cmp.b #'n',mors
  1754.  bne .nopause
  1755.  tst.b $19(a5)
  1756.  beq.s .nopause
  1757.  clr.b doanything
  1758.  
  1759. .waitrel:
  1760.  
  1761.  tst.b PLR1JOY
  1762.  beq.s .NOJOY
  1763.  jsr _ReadJoy1
  1764. .NOJOY
  1765.  
  1766.  tst.b $19(a5)
  1767.  bne.s .waitrel
  1768.  
  1769.  bsr PAUSEOPTS
  1770.  
  1771.  st doanything
  1772. .nopause: 
  1773.  
  1774.  move.l hitcol,d0
  1775.  move.l d0,d1
  1776.  
  1777. ********************************************
  1778. * Remove after colour testing 
  1779. ; moveq #0,d1
  1780. ********************************************
  1781.  
  1782.  add.l #PALETTEBIT,d1
  1783.  tst.l d0
  1784.  beq.s nofadedownhc
  1785.  sub.l #2116,d0
  1786.  move.l d0,hitcol
  1787. nofadedownhc:
  1788.  
  1789.  move.l d1,a0
  1790.  move.l #PALETTESPACE,a1
  1791.  move.l #(2116/4)-2,d0
  1792. putinpal:
  1793.  move.l (a0)+,(a1)+
  1794.  dbra d0,putinpal
  1795.  
  1796.  st READCONTROLS
  1797.  move.l #$dff000,a6
  1798.  
  1799.  
  1800.  cmp.b #'n',mors
  1801.  beq .nopause
  1802.  
  1803.  move.b SLAVEPAUSE,d0
  1804.  or.b MASTERPAUSE,d0
  1805.  beq.s .nopause
  1806.  clr.b doanything
  1807.  
  1808.  move.l #KeyMap,a5
  1809. .waitrel:
  1810.  
  1811.  cmp.b #'s',mors
  1812.  beq.s .RE2
  1813.  tst.b PLR1JOY
  1814.  beq.s .NOJOY
  1815.  jsr _ReadJoy1
  1816.  bra .RE1
  1817. .RE2:
  1818.  tst.b PLR2JOY
  1819.  beq.s .NOJOY
  1820.  jsr _ReadJoy2
  1821. .RE1
  1822. .NOJOY:
  1823.  tst.b $19(a5)
  1824.  bne.s .waitrel
  1825.  
  1826.  bsr PAUSEOPTS
  1827.  
  1828.  cmp.b #'m',mors
  1829.  bne.s .slavelast
  1830.  Jsr SENDFIRST
  1831.  bra .masfirst
  1832. .slavelast
  1833.  Jsr RECFIRST
  1834. .masfirst:
  1835.  clr.b SLAVEPAUSE
  1836.  clr.b MASTERPAUSE
  1837.  st doanything
  1838.  
  1839. .nopause: 
  1840.  
  1841.  
  1842.  move.l drawpt,d0
  1843.  move.l olddrawpt,drawpt
  1844.  move.l d0,olddrawpt
  1845.  
  1846.  move.l SCRNDRAWPT,d0
  1847.  move.l SCRNSHOWPT,SCRNDRAWPT
  1848.  move.l d0,SCRNSHOWPT
  1849.  
  1850. ; move.l d0,$dff084    
  1851.  move.l drawpt,a3
  1852. ; move.l COPSCRNBUFF,a3
  1853.  adda.w #10,a3
  1854.  move.l a3,frompt
  1855.  add.l #104*4*40,a3
  1856.  move.l a3,midpt
  1857.  
  1858.  cmp.b #'s',mors
  1859.  beq.s nowaitslave
  1860.  
  1861. waitfortop:
  1862.  
  1863.  btst.b #0,intreqrl(a6)
  1864.  beq.b waitfortop
  1865.  
  1866.  move.w #$1,intreq(a6)
  1867. ; move.l #PLR1_GunData,GunData
  1868.  move.b PLR1_GunSelected,GunSelected
  1869.  bra waitmaster
  1870.  
  1871. nowaitslave:
  1872. ; move.l #PLR2_GunData,GunData
  1873.  move.b PLR2_GunSelected,GunSelected
  1874. waitmaster:
  1875.  
  1876.  move.l d0,d1
  1877.  move.l d1,d0
  1878.  move.w d0,pl1l
  1879.  swap d0
  1880.  move.w d0,pl1h
  1881.  
  1882.  add.l #10240,d1
  1883.  move.l d1,d0
  1884.  move.w d0,pl2l
  1885.  swap d0
  1886.  move.w d0,pl2h
  1887.  
  1888.  add.l #10240,d1
  1889.  move.l d1,d0
  1890.  move.w d0,pl3l
  1891.  swap d0
  1892.  move.w d0,pl3h
  1893.  
  1894.  add.l #10240,d1
  1895.  move.l d1,d0
  1896.  move.w d0,pl4l
  1897.  swap d0
  1898.  move.w d0,pl4h
  1899.  
  1900.  add.l #10240,d1
  1901.  move.l d1,d0
  1902.  move.w d0,pl5l
  1903.  swap d0
  1904.  move.w d0,pl5h
  1905.  
  1906.  add.l #10240,d1
  1907.  move.l d1,d0
  1908.  move.w d0,pl6l
  1909.  swap d0
  1910.  move.w d0,pl6h
  1911.  
  1912.  add.l #10240,d1
  1913.  move.l d1,d0
  1914.  move.w d0,pl7l
  1915.  swap d0
  1916.  move.w d0,pl7h
  1917.  
  1918.  add.l #10240,d1
  1919.  move.l d1,d0
  1920.  move.w d0,pl8l
  1921.  swap d0
  1922.  move.w d0,pl8h 
  1923.  
  1924.  move.l #SMIDDLEY,a0
  1925.  movem.l (a0)+,d0/d1
  1926.  move.l d0,MIDDLEY
  1927.  move.l d1,MIDDLEY+4
  1928.  
  1929.  move.l waterpt,a0
  1930.  move.l (a0)+,watertouse
  1931.  cmp.l #endwaterlist,a0
  1932.  blt.s okwat
  1933.  move.l #waterlist,a0
  1934. okwat:
  1935.  move.l a0,waterpt
  1936.  
  1937.  add.w #640,wtan
  1938.  and.w #8191,wtan
  1939.  add.l #1,wateroff
  1940.  and.l #$3fff3fff,wateroff
  1941.  
  1942.  move.l PLR1_xoff,OLDX1
  1943.  move.l PLR1_zoff,OLDZ1
  1944.  move.l PLR2_xoff,OLDX2
  1945.  move.l PLR2_zoff,OLDZ2
  1946.  
  1947.  move.l #$dff000,a6
  1948.  
  1949.  cmp.b #'s',mors
  1950.  beq ASlaveShouldWaitOnHisMaster
  1951.  
  1952.  cmp.b #'n',mors
  1953.  bne NotOnePlayer
  1954.  
  1955.  movem.l d0-d7/a0-a6,-(a7)
  1956.  
  1957.  moveq #0,d0
  1958.  move.b GunSelected,d0
  1959.  move.l LINKFILE,a6
  1960.  add.l #GunBulletTypes,a6
  1961.  move.w (a6,d0.w*8),d0
  1962.  
  1963.  move.l #PLAYERONEAMMO,a6
  1964.  move.w (a6,d0.w*2),d0
  1965.  move.w d0,Ammo
  1966.  movem.l (a7)+,d0-d7/a0-a6
  1967.  
  1968.  move.w PLAYERONEHEALTH,Energy
  1969.  
  1970.  move.w FramesToDraw,TempFrames
  1971.  cmp.w #15,TempFrames
  1972.  blt.s .okframe
  1973.  move.w #15,TempFrames
  1974. .okframe:
  1975.  move.w #0,FramesToDraw
  1976.  
  1977. *********************************************
  1978. *********** TAKE THIS OUT *******************
  1979. *********************************************
  1980.  
  1981.  move.l CHEATPTR,a4
  1982.  add.l #200000,a4
  1983.  moveq #0,d0
  1984.  move.b (a4),d0
  1985.  
  1986.  move.l #KeyMap,a5
  1987.  tst.b (a5,d0.w)
  1988.  beq.s .nocheat
  1989.  
  1990.  addq #1,a4
  1991.  cmp.l #ENDCHEAT,a4
  1992.  blt.s .nocheat
  1993.  cmp.w #0,CHEATNUM
  1994.  beq.s .nocheat
  1995.  sub.w #1,CHEATNUM
  1996.  move.l #CHEATFRAME,a4
  1997.  move.w #127,PLR1_energy
  1998.  jsr EnergyBar
  1999. .nocheat
  2000.  
  2001.  sub.l #200000,a4
  2002.  move.l a4,CHEATPTR
  2003.  
  2004. **********************************************
  2005. **********************************************
  2006. **********************************************
  2007.  
  2008.  move.l PLR1s_xoff,p1_xoff
  2009.  move.l PLR1s_zoff,p1_zoff
  2010.  move.l PLR1s_yoff,p1_yoff
  2011.  move.l PLR1s_height,p1_height
  2012.  move.w PLR1s_angpos,p1_angpos
  2013.  move.w PLR1_bobble,p1_bobble
  2014.  move.b PLR1_clicked,p1_clicked
  2015.  move.b PLR1_fire,p1_fire
  2016.  clr.b PLR1_clicked
  2017.  move.b PLR1_SPCTAP,p1_spctap
  2018.  clr.b PLR1_SPCTAP
  2019.  move.b PLR1_Ducked,p1_ducked
  2020.  move.b PLR1_GunSelected,p1_gunselected
  2021.  
  2022.  bsr PLR1_Control
  2023.  
  2024.  move.l PLR1_Roompt,a0
  2025.  move.l ToZoneRoof(a0),SplitHeight
  2026.  move.w p1_xoff,THISPLRxoff
  2027.  move.w p1_zoff,THISPLRzoff
  2028.  
  2029.  
  2030.  move.l #$60000,p2_yoff
  2031.  move.l PLR2_Obj,a0
  2032.  move.w #-1,GraphicRoom(a0)
  2033.  move.w #-1,12(a0)
  2034.  move.b #0,17(a0)
  2035.  move.l #BollocksRoom,PLR2_Roompt
  2036.  
  2037.  bra donetalking
  2038.  
  2039. NotOnePlayer:
  2040.  move.l #KeyMap,a5
  2041.  tst.b $19(a5)
  2042.  sne MASTERPAUSE
  2043.  
  2044. *********************************
  2045.  move.w PLAYERONEHEALTH,Energy
  2046. ; change this back
  2047. *********************************
  2048.  movem.l d0-d7/a0-a6,-(a7)
  2049.  
  2050.  moveq #0,d0
  2051.  move.b GunSelected,d0
  2052.  move.l LINKFILE,a6
  2053.  add.l #GunBulletTypes,a6
  2054.  move.w (a6,d0.w*8),d0
  2055.  
  2056.  move.l #PLAYERONEAMMO,a6
  2057.  move.w (a6,d0.w*2),d0
  2058.  move.w d0,Ammo
  2059.  movem.l (a7)+,d0-d7/a0-a6
  2060.  
  2061.  jsr SENDFIRST
  2062.  
  2063.  move.w FramesToDraw,TempFrames
  2064.  cmp.w #15,TempFrames
  2065.  blt.s .okframe
  2066.  move.w #15,TempFrames
  2067. .okframe:
  2068.  move.w #0,FramesToDraw
  2069.  
  2070.  move.l PLR1s_xoff,p1_xoff
  2071.  move.l PLR1s_zoff,p1_zoff
  2072.  move.l PLR1s_yoff,p1_yoff
  2073.  move.l PLR1s_height,p1_height
  2074.  move.w PLR1s_angpos,p1_angpos
  2075.  move.w PLR1_bobble,p1_bobble
  2076.  move.b PLR1_clicked,p1_clicked
  2077.  clr.b PLR1_clicked
  2078.  move.b PLR1_fire,p1_fire
  2079.  move.b PLR1_SPCTAP,p1_spctap
  2080.  clr.b PLR1_SPCTAP
  2081.  move.b PLR1_Ducked,p1_ducked
  2082.  move.b PLR1_GunSelected,p1_gunselected
  2083.  
  2084.  move.l PLR1_AIMSPD,d0
  2085.  jsr SENDFIRST
  2086.  move.l d0,PLR2_AIMSPD
  2087.  
  2088.  move.l p1_xoff,d0
  2089.  jsr SENDFIRST
  2090.  move.l d0,p2_xoff
  2091.  
  2092.  move.l p1_zoff,d0
  2093.  jsr SENDFIRST
  2094.  move.l d0,p2_zoff 
  2095.  
  2096.  move.l p1_yoff,d0
  2097.  jsr SENDFIRST
  2098.  move.l d0,p2_yoff
  2099.   
  2100.  move.l p1_height,d0
  2101.  jsr SENDFIRST
  2102.  move.l d0,p2_height
  2103.  
  2104.  move.w p1_angpos,d0
  2105.  swap d0
  2106.  move.w p1_bobble,d0
  2107.  jsr SENDFIRST
  2108.  move.w d0,p2_bobble
  2109.  swap d0
  2110.  move.w d0,p2_angpos
  2111.  
  2112.  
  2113.  move.w TempFrames,d0
  2114.  swap d0
  2115.  move.b p1_spctap,d0
  2116.  lsl.w #8,d0
  2117.  move.b p1_clicked,d0
  2118.  jsr SENDFIRST
  2119.  move.b d0,p2_clicked
  2120.  lsr.w #8,d0
  2121.  move.b d0,p2_spctap
  2122.  
  2123.  
  2124.  move.w Rand1,d0
  2125.  swap d0
  2126.  move.b p1_ducked,d0
  2127.  or.b PLR2_Squished,d0
  2128.  lsl.w #8,d0
  2129.  move.b p1_gunselected,d0
  2130.  jsr SENDFIRST
  2131.  move.b d0,p2_gunselected
  2132.  lsr.w #8,d0
  2133.  move.b d0,p2_ducked
  2134.  
  2135.  move.b p1_fire,d0
  2136.  lsl.w #8,d0
  2137.  move.b MASTERQUITTING,d0
  2138.  or.b d0,SLAVEQUITTING
  2139.  swap d0
  2140.  move.b MASTERPAUSE,d0
  2141.  or.b d0,SLAVEPAUSE
  2142.  jsr SENDFIRST
  2143.  or.b d0,MASTERPAUSE
  2144.  or.b d0,SLAVEPAUSE
  2145.  swap d0
  2146.  or.b d0,SLAVEQUITTING
  2147.  or.b d0,MASTERQUITTING
  2148.  lsr.w #8,d0
  2149.  move.b d0,p2_fire
  2150.  
  2151.  bsr PLR1_Control
  2152.  bsr PLR2_Control
  2153.  move.l PLR1_Roompt,a0
  2154.  move.l ToZoneRoof(a0),SplitHeight
  2155.  move.w p1_xoff,THISPLRxoff
  2156.  move.w p1_zoff,THISPLRzoff
  2157.  
  2158.  bra donetalking
  2159.  
  2160. ASlaveShouldWaitOnHisMaster:
  2161.  
  2162.  move.l #KeyMap,a5
  2163.  tst.b $19(a5)
  2164.  sne SLAVEPAUSE
  2165.  
  2166.  movem.l d0-d7/a0-a6,-(a7)
  2167.  
  2168.  moveq #0,d0
  2169.  move.b GunSelected,d0
  2170.  move.l LINKFILE,a6
  2171.  add.l #GunBulletTypes,a6
  2172.  move.w (a6,d0.w*8),d0
  2173.  
  2174.  move.l #PLAYERTWOAMMO,a6
  2175.  move.w (a6,d0.w*2),d0
  2176.  move.w d0,Ammo
  2177.  movem.l (a7)+,d0-d7/a0-a6
  2178.  
  2179.  move.w PLAYERTWOHEALTH,Energy
  2180.  
  2181.  jsr RECFIRST
  2182.  
  2183.  move.l PLR2s_xoff,p2_xoff
  2184.  move.l PLR2s_zoff,p2_zoff
  2185.  move.l PLR2s_yoff,p2_yoff
  2186.  move.l PLR2s_height,p2_height
  2187.  move.w PLR2s_angpos,p2_angpos
  2188.  move.w PLR2_bobble,p2_bobble
  2189.  move.b PLR2_clicked,p2_clicked
  2190.  clr.b PLR2_clicked
  2191.  move.b PLR2_fire,p2_fire
  2192.  move.b PLR2_SPCTAP,p2_spctap
  2193.  clr.b PLR2_SPCTAP
  2194.  move.b PLR2_Ducked,p2_ducked
  2195.  move.b PLR2_GunSelected,p2_gunselected
  2196.  
  2197.  move.l PLR2_AIMSPD,d0
  2198.  jsr RECFIRST
  2199.  move.l d0,PLR1_AIMSPD
  2200.  
  2201.  move.l p2_xoff,d0
  2202.  jsr RECFIRST
  2203.  move.l d0,p1_xoff
  2204.  
  2205.  move.l p2_zoff,d0
  2206.  jsr RECFIRST
  2207.  move.l d0,p1_zoff
  2208.  
  2209.  move.l p2_yoff,d0
  2210.  jsr RECFIRST
  2211.  move.l d0,p1_yoff
  2212.  
  2213.  move.l p2_height,d0
  2214.  jsr RECFIRST
  2215.  move.l d0,p1_height
  2216.  
  2217.  move.w p2_angpos,d0
  2218.  swap d0
  2219.  move.w p2_bobble,d0
  2220.  jsr RECFIRST
  2221.  move.w d0,p1_bobble
  2222.  swap d0
  2223.  move.w d0,p1_angpos
  2224.  
  2225.  
  2226.  move.b p2_spctap,d0
  2227.  lsl.w #8,d0
  2228.  move.b p2_clicked,d0
  2229.  jsr RECFIRST
  2230.  move.b d0,p1_clicked
  2231.  lsr.w #8,d0
  2232.  move.b d0,p1_spctap
  2233.  swap d0
  2234.  move.w d0,TempFrames
  2235.  
  2236.  move.b p2_ducked,d0
  2237.  or.b PLR2_Squished,d0
  2238.  lsl.w #8,d0
  2239.  move.b p2_gunselected,d0
  2240.  jsr RECFIRST
  2241.  move.b d0,p1_gunselected
  2242.  lsr.w #8,d0
  2243.  move.b d0,p1_ducked
  2244.  swap d0
  2245.  move.w d0,Rand1
  2246.  
  2247.  move.b p2_fire,d0
  2248.  lsl.w #8,d0
  2249.  move.b SLAVEQUITTING,d0
  2250.  or.b d0,MASTERQUITTING
  2251.  swap d0
  2252.  move.b SLAVEPAUSE,d0
  2253.  or.b d0,MASTERPAUSE
  2254.  jsr RECFIRST
  2255.  or.b d0,MASTERPAUSE
  2256.  or.b d0,SLAVEPAUSE
  2257.  swap d0
  2258.  or.b d0,SLAVEQUITTING
  2259.  or.b d0,MASTERQUITTING
  2260.  lsr.w #8,d0
  2261.  move.b d0,p1_fire
  2262.  
  2263.  
  2264.  bsr PLR1_Control
  2265.  bsr PLR2_Control
  2266.  move.w p2_xoff,THISPLRxoff
  2267.  move.w p2_zoff,THISPLRzoff
  2268.  move.l PLR2_Roompt,a0
  2269.  move.l ToZoneRoof(a0),SplitHeight
  2270.  
  2271. donetalking:
  2272.  
  2273.  
  2274.  move.l #ZoneBrightTable,a1
  2275.  move.l ZoneAdds,a2
  2276.  move.l PLR2_ListOfGraphRooms,a0
  2277. ; move.l PLR2_PointsToRotatePtr,a5
  2278.  move.l a0,a5
  2279.  cmp.b #'s',mors
  2280.  beq.s doallz
  2281.  move.l PLR1_ListOfGraphRooms,a0
  2282. ; move.l PLR1_PointsToRotatePtr,a5
  2283.  move.l a0,a5 
  2284. doallz
  2285.  move.w (a0),d0
  2286.  blt.s doneallz
  2287.  add.w #8,a0
  2288.  
  2289.  move.l (a2,d0.w*4),a3
  2290.  add.l LEVELDATA,a3
  2291.  move.w ToZoneBrightness(a3),d2
  2292.  
  2293.  blt.s justbright
  2294.  move.w d2,d3
  2295.  lsr.w #8,d3
  2296.  tst.b d3
  2297.  beq.s justbright
  2298.  
  2299.  move.l #BrightAnimTable,a4
  2300.  move.w -2(a4,d3.w*2),d2
  2301.  
  2302. justbright:
  2303.  muls #32,d2
  2304.  divs #20,d2
  2305.  move.w d2,(a1,d0.w*4)
  2306.  
  2307.  move.w ToUpperBrightness(a3),d2
  2308.  
  2309.  blt.s justbright2
  2310.  move.w d2,d3
  2311.  lsr.w #8,d3
  2312.  tst.b d3
  2313.  beq.s justbright2
  2314.  
  2315.  move.l #BrightAnimTable,a4
  2316.  move.w -2(a4,d3.w*2),d2
  2317.  
  2318. justbright2:
  2319.  
  2320.  muls #32,d2
  2321.  divs #20,d2
  2322.  move.w d2,2(a1,d0.w*4)
  2323.  
  2324.  bra doallz
  2325.  
  2326. doneallz:
  2327.  
  2328.  move.l PointBrights,a2
  2329.  move.l #CurrentPointBrights,a3
  2330. justtheone:
  2331.  move.w (a5),d0
  2332.  blt whythehell
  2333.  addq #8,a5
  2334.  
  2335.  muls #40,d0
  2336.  
  2337.  move.w #39,d7
  2338.  
  2339. allinzone:
  2340.  move.w (a2,d0.w*2),d2
  2341.  
  2342.  tst.b d2
  2343.  blt.s .justbright
  2344.  move.w d2,d3
  2345.  lsr.w #8,d3
  2346.  tst.b d3
  2347.  beq.s .justbright
  2348.  
  2349.  move.w d3,d4
  2350.  and.w #$f,d3
  2351.  lsr.w #4,d4
  2352.  add.w #1,d4
  2353.  move.l #BrightAnimTable,a0
  2354.  move.w -2(a0,d3.w*2),d3
  2355.  ext.w d2
  2356.  sub.w d2,d3
  2357.  muls d4,d3
  2358.  asr.w #4,d3
  2359.  add.w d3,d2
  2360.  
  2361. .justbright:
  2362.  ext.w d2
  2363.  
  2364.  muls #31,d2
  2365.  divs #20,d2
  2366.  bge.s .itspos
  2367.  sub.w #600,d2
  2368. .itspos:
  2369.  add.w #300,d2
  2370.  
  2371.  move.w d2,(a3,d0.w*2)
  2372.  addq #1,d0
  2373.  dbra d7,allinzone
  2374.  
  2375.  bra justtheone
  2376.  
  2377. whythehell:
  2378.  
  2379.  move.l PLR1_Roompt,a0
  2380.  move.l #CurrentPointBrights,a1
  2381.  move.l ZoneBorderPts,a2
  2382.  move.w (a0),d0
  2383.  muls #10,d0
  2384.  lea (a2,d0.w*2),a2
  2385.  lea (a1,d0.w*8),a1
  2386.  
  2387.  moveq #9,d7
  2388.  moveq #0,d0
  2389.  moveq #0,d1
  2390. findaverage:
  2391.  tst.w (a2)+
  2392.  blt.s .foundaverage
  2393.  addq #1,d0
  2394.  move.w (a1)+,d2
  2395.  bge.s .okpos
  2396.  neg.w d2
  2397. .okpos:
  2398.  add.w d2,d1
  2399.  
  2400.  dbra d7,findaverage
  2401.  
  2402. .foundaverage:
  2403.  
  2404.  ext.l d1
  2405.  divs d0,d1
  2406.  sub.w #300,d1
  2407.  move.w d1,PLR1_RoomBright
  2408.  
  2409.  cmp.b #'n',mors
  2410.  beq nosee
  2411.  
  2412.  move.l PLR1_Roompt,FromRoom
  2413.  move.l PLR2_Roompt,ToRoom
  2414.  move.w p1_xoff,Viewerx
  2415.  move.w p1_zoff,Viewerz
  2416.  move.l p1_yoff,d0
  2417.  asr.l #7,d0
  2418.  move.w d0,Viewery
  2419.  move.w p2_xoff,Targetx
  2420.  move.w p2_zoff,Targetz
  2421.  move.l p2_yoff,d0
  2422.  asr.l #7,d0
  2423.  move.w d0,Targety
  2424.  move.b PLR1_StoodInTop,ViewerTop
  2425.  move.b PLR2_StoodInTop,TargetTop
  2426.  jsr CanItBeSeen
  2427.  
  2428.  move.l PLR1_Obj,a0
  2429.  move.b CanSee,d0
  2430.  and.b #2,d0
  2431.  move.b d0,17(a0)
  2432.  move.l PLR2_Obj,a0
  2433.  move.b CanSee,d0
  2434.  and.b #1,d0
  2435.  move.b d0,17(a0)
  2436.  
  2437. nosee:
  2438.  
  2439.  
  2440.  move.w TempFrames,d0
  2441.  add.w d0,p1_holddown
  2442.  cmp.w #30,p1_holddown
  2443.  blt.s oklength
  2444.  move.w #30,p1_holddown
  2445. oklength:
  2446.  
  2447.  tst.b p1_fire
  2448.  bne.s okstillheld
  2449.  sub.w d0,p1_holddown
  2450.  bge.s okstillheld
  2451.  move.w #0,p1_holddown
  2452.  
  2453. okstillheld:
  2454.  
  2455.  move.w TempFrames,d0
  2456.  add.w d0,p2_holddown
  2457.  
  2458.  cmp.w #30,p2_holddown
  2459.  blt.s oklength2
  2460.  move.w #30,p2_holddown
  2461. oklength2:
  2462.  
  2463.  
  2464.  tst.b p2_fire
  2465.  bne.s okstillheld2
  2466.  sub.w d0,p2_holddown
  2467.  bge.s okstillheld2
  2468.  move.w #0,p2_holddown
  2469. okstillheld2:
  2470.  
  2471. ***** CHECKING LIGHT *********
  2472.  
  2473. ; move.w #-20,d0
  2474. ; move.w PLR1_xoff,d1
  2475. ; move.w PLR1_zoff,d2
  2476. ; move.l PLR1_Roompt,a0
  2477. ; move.w (a0),d3
  2478. ; move.w PLR1_angpos,d4
  2479. ;
  2480. ; jsr BRIGHTENPOINTSANGLE
  2481.  
  2482. ******************************
  2483.  
  2484. ; move.l #PLR1_GunData,a1
  2485. ; move.w p1_holddown,d0
  2486. ; move.w #50,10+32*3(a1)
  2487. ; move.l #PLR2_GunData,a1
  2488. ; move.w p2_holddown,d0
  2489. ; move.w #50,10+32*3(a1)
  2490.  
  2491. ******************************************
  2492. ******************************************
  2493.  
  2494.  move.w TempFrames,d1
  2495.  bgt.s noze
  2496.  moveq #1,d1
  2497. noze:
  2498.  
  2499.  move.w PLR1_xoff,d0
  2500.  sub.w OLDX1,d0
  2501.  asl.w #4,d0
  2502.  ext.l d0
  2503.  divs d1,d0
  2504.  move.w d0,XDIFF1
  2505.  move.w PLR2_xoff,d0
  2506.  sub.w OLDX2,d0
  2507.  asl.w #4,d0
  2508.  ext.l d0
  2509.  divs d1,d0
  2510.  move.w d0,XDIFF2
  2511.  move.w PLR1_zoff,d0
  2512.  sub.w OLDZ1,d0
  2513.  asl.w #4,d0
  2514.  ext.l d0
  2515.  divs d1,d0
  2516.  move.w d0,ZDIFF1
  2517.  move.w PLR2_zoff,d0
  2518.  sub.w OLDZ2,d0
  2519.  asl.w #4,d0
  2520.  ext.l d0
  2521.  divs d1,d0
  2522.  move.w d0,ZDIFF2
  2523.  
  2524.  cmp.b #'s',mors
  2525.  beq.s ImPlayer2OhYesIAm
  2526.  bsr USEPLR1
  2527.  bra IWasPlayer1
  2528.  
  2529. ImPlayer2OhYesIAm:
  2530.  bsr USEPLR2
  2531. IWasPlayer1:
  2532.  
  2533.  
  2534.  cmp.b #'s',mors
  2535.  beq drawplayer2
  2536.  
  2537.  move.w #0,scaleval
  2538.  
  2539.  move.l PLR1_xoff,xoff
  2540.  move.l PLR1_yoff,yoff
  2541.  move.l PLR1_zoff,zoff
  2542.  move.w PLR1_angpos,angpos
  2543.  move.w PLR1_cosval,cosval
  2544.  move.w PLR1_sinval,sinval
  2545.  
  2546.  
  2547.  move.l PLR1_ListOfGraphRooms,ListOfGraphRooms
  2548.  move.l PLR1_PointsToRotatePtr,PointsToRotatePtr
  2549.  move.b PLR1_Echo,PLREcho
  2550.  move.l PLR1_Roompt,Roompt
  2551.  
  2552.  move.l #KeyMap,a5
  2553.  moveq #0,d5
  2554.  move.b look_behind_key,d5
  2555.  tst.b (a5,d5.w)
  2556.  beq.s .nolookback
  2557.  
  2558.  move.l PLR1_Obj,a0
  2559.  move.w #-1,12+128(a0)
  2560.  
  2561.  eor.w #4096,angpos 
  2562.  neg.w cosval
  2563.  neg.w sinval
  2564. .nolookback:
  2565.  
  2566.  bsr OrderZones
  2567.  jsr objmoveanim
  2568.  jsr EnergyBar
  2569.  jsr AmmoBar
  2570.  
  2571.  
  2572. ;********************************************
  2573. ;************* Do reflection ****************
  2574. ;
  2575. ; move.l ListOfGraphRooms,a0
  2576. ; move.l ZoneAdds,a1
  2577. ;checkwaterheights
  2578. ; move.w (a0),d0
  2579. ; blt allzonesdone
  2580. ; addq #8,a0
  2581. ; move.l (a1,d0.w*4),a2
  2582. ; 
  2583. ; add.l LEVELDATA,a2
  2584. ; 
  2585. ; move.l ToZoneWater(a2),d0
  2586. ; cmp.l ToZoneFloor(a2),d0
  2587. ; blt.s WEHAVEAHEIGHT
  2588. ; 
  2589. ; bra.s checkwaterheights
  2590. ;
  2591. ;WEHAVEAHEIGHT:
  2592. ;
  2593. ; sub.l yoff,d0
  2594. ; blt.s underwater
  2595. ; 
  2596. ; add.l d0,d0
  2597. ; add.l d0,yoff
  2598. ; 
  2599. ; move.l FASTBUFFER2,FASTBUFFER
  2600. ; move.w #0,leftclip
  2601. ; move.w RIGHTX,rightclip
  2602. ; move.w #0,deftopclip
  2603. ; move.w #BOTTOMY/2,defbotclip
  2604. ; move.w #0,topclip
  2605. ; move.w #BOTTOMY/2,botclip
  2606. ;
  2607. ; clr.b DOANYWATER 
  2608. ; 
  2609. ; bsr DrawDisplay
  2610. ; 
  2611. ;allzonesdone:
  2612. ;underwater:
  2613.  
  2614. ********************************************
  2615.  
  2616.  st DOANYWATER
  2617.  
  2618.  move.l PLR1_yoff,yoff
  2619.  
  2620.  move.w #0,leftclip
  2621.  move.w RIGHTX,rightclip
  2622.  move.w #0,deftopclip
  2623.  move.w WIDESCRN,d0
  2624.  add.w d0,deftopclip
  2625.  
  2626.  move.w BOTTOMY,defbotclip
  2627.  sub.w d0,defbotclip
  2628.  move.w #0,topclip
  2629.  add.w d0,topclip
  2630.  move.w BOTTOMY,botclip
  2631.  sub.w d0,botclip
  2632. ; sub.l #10*104*4,frompt
  2633. ; sub.l #10*104*4,midpt
  2634.  
  2635. * Subroom loop
  2636.  
  2637.  bsr DrawDisplay 
  2638.  
  2639.  bra nodrawp2
  2640.  
  2641. drawplayer2
  2642.  
  2643.  move.w #0,scaleval
  2644.  move.l PLR2_xoff,xoff
  2645.  move.l PLR2_yoff,yoff
  2646.  move.l PLR2_zoff,zoff
  2647.  move.w PLR2_angpos,angpos
  2648.  move.w PLR2_cosval,cosval
  2649.  move.w PLR2_sinval,sinval 
  2650.  
  2651.  
  2652.  
  2653.  move.l PLR2_ListOfGraphRooms,ListOfGraphRooms
  2654.  move.l PLR2_PointsToRotatePtr,PointsToRotatePtr
  2655.  move.b PLR2_Echo,PLREcho
  2656.  move.l PLR2_Roompt,Roompt
  2657.  
  2658.  move.l #KeyMap,a5
  2659.  moveq #0,d5
  2660.  move.b look_behind_key,d5
  2661.  tst.b (a5,d5.w)
  2662.  beq.s .nolookback
  2663.  
  2664.  move.l PLR1_Obj,a0
  2665.  move.w #-1,12+128(a0)
  2666.  eor.w #4096,angpos 
  2667.  
  2668.  neg.w cosval
  2669.  neg.w sinval
  2670. .nolookback:
  2671.  
  2672.  bsr OrderZones
  2673.  jsr objmoveanim
  2674.  jsr EnergyBar
  2675.  jsr AmmoBar
  2676.  
  2677.  move.w WIDESCRN,d0
  2678.  
  2679.  move.w #0,leftclip
  2680.  move.w RIGHTX,rightclip
  2681.  move.w #0,deftopclip
  2682.  add.w d0,deftopclip
  2683.  move.w BOTTOMY,defbotclip
  2684.  sub.w d0,defbotclip
  2685.  move.w #0,topclip
  2686.  add.w d0,topclip
  2687.  move.w BOTTOMY,botclip
  2688.  sub.w d0,botclip
  2689.  
  2690.  bsr DrawDisplay
  2691.  
  2692. nodrawp2:
  2693.  
  2694. ***************************************** 
  2695. * Copy from copbuff to chip ram
  2696.  
  2697.  
  2698. ; move.l drawpt,a3
  2699. ; adda.w #10,a3
  2700. ; move.l COPSCRNBUFF,a2
  2701. ; move.w #2,d6
  2702. ; adda.w #10,a2
  2703. ;COPYOUT
  2704. ; move.w #31,d0
  2705. ;COPYDOWN1:
  2706. ; move.w #3,d1
  2707. ; move.l a2,a4
  2708. ; move.l a3,a5
  2709. ;.inlop1:
  2710. ;val SET 0
  2711. ; REPT 20
  2712. ; move.w val(a4),val(a5)
  2713. ;val SET val+104*4
  2714. ; ENDR
  2715. ; adda.l #104*4*20,a4
  2716. ; adda.l #104*4*20,a5
  2717. ; dbra d1,.inlop1
  2718. ; addq #4,a2
  2719. ; addq #4,a3
  2720. ; dbra d0,COPYDOWN1
  2721. ; addq #4,a2
  2722. ; addq #4,a3
  2723. ; dbra d6,COPYOUT 
  2724.  
  2725.  tst.b REALMAPON
  2726.  beq.s .nomap
  2727.  bsr DoTheMapWotNastyCharlesIsForcingMeToDo
  2728. .nomap
  2729.  
  2730.  move.w WIDESCRN,d7
  2731.  
  2732.  tst.b FULLSCR
  2733.  beq nobigconv
  2734.  
  2735.  move.l FASTBUFFER,a0
  2736. ; add.l #320*2*20,a0
  2737.  move.w d7,d6
  2738.  muls #320,d6
  2739.  add.l d6,a0
  2740.  move.l SCRNDRAWPT,a1
  2741.  move.w d7,d6
  2742.  muls #40,d6
  2743.  add.l d6,a1
  2744.  add.l #2,a1
  2745.  move.l #(288/8)-1,d0
  2746.  move.l #231,d1
  2747.  sub.w d7,d1
  2748.  sub.w d7,d1
  2749.  blt nochunk
  2750.  move.w #(320-288),d2
  2751.  move.w #4,d3
  2752.  
  2753.  bra donebigconv
  2754.  
  2755. nobigconv:
  2756.  
  2757.  move.l FASTBUFFER,a0
  2758.  move.w d7,d6
  2759.  muls #320,d6
  2760.  add.l d6,a0
  2761.  move.l SCRNDRAWPT,a1
  2762.  add.l #8+40*20,a1
  2763.  move.w d7,d6
  2764.  muls #40,d6
  2765.  add.l d6,a1
  2766.  move.l #(192/8)-1,d0
  2767.  move.l #159,d1
  2768.  sub.w d7,d1
  2769.  sub.w d7,d1
  2770.  blt nochunk
  2771.  move.w #(320-192),d2
  2772.  move.w #16,d3
  2773. donebigconv
  2774.  
  2775.  tst.b DOUBLEHEIGHT
  2776.  beq.s .nodoub
  2777.  asr.w #1,d1
  2778.  blt nochunk
  2779.  add.w #320,d2
  2780.  add.w #40,d3
  2781. .nodoub:
  2782.  
  2783.  move.b DOUBLEWIDTH,d4
  2784.  
  2785.  move.b PLR1_TELEPORTED,d5
  2786.  clr.b PLR1_TELEPORTED
  2787.  cmp.b #'s',mors
  2788.  bne.s .notplr2
  2789.  move.b PLR2_TELEPORTED,d5
  2790.  clr.b PLR2_TELEPORTED
  2791. .notplr2
  2792.  jsr CHUNKYTOPLANAR 
  2793.  
  2794. nochunk:
  2795.  
  2796.  
  2797.  move.l #KeyMap,a5
  2798.  tst.b $4a(a5)
  2799.  beq .nosmallscr
  2800.  
  2801.  move.w #100,d2
  2802.  move.l #0,d7
  2803.  move.l #0,d6
  2804.  tst.b FULLSCR
  2805.  bne.s .attop
  2806.  move.l #40*20,d7
  2807.  move.l #40*52,d6
  2808.  move.w #60,d2
  2809. .attop:
  2810.  
  2811.  move.w WIDESCRN,d0
  2812.  move.l SCRNDRAWPT,a0
  2813.  add.l d7,a0
  2814.  muls #40,d0
  2815.  add.l d0,a0
  2816.  bsr CLRTWOLINES
  2817.  move.w WIDESCRN,d0
  2818.  move.l SCRNSHOWPT,a0
  2819.  add.l d7,a0
  2820.  muls #40,d0
  2821.  add.l d0,a0
  2822.  bsr CLRTWOLINES
  2823.  
  2824.  
  2825.  add.w #2,WIDESCRN
  2826.  
  2827.  cmp.w WIDESCRN,d2
  2828.  bgt.s .okwide
  2829.  move.w d2,WIDESCRN
  2830. .okwide:
  2831.  
  2832.  move.l SCRNDRAWPT,a0
  2833.  add.l #232*40,a0
  2834.  sub.l d6,a0
  2835.  move.w WIDESCRN,d0
  2836.  muls #40,d0
  2837.  sub.l d0,a0
  2838.  bsr CLRTWOLINES
  2839.  move.l SCRNSHOWPT,a0
  2840.  sub.l d6,a0
  2841.  add.l #232*40,a0
  2842.  move.w WIDESCRN,d0
  2843.  muls #40,d0
  2844.  sub.l d0,a0
  2845.  bsr CLRTWOLINES
  2846.  
  2847. .nosmallscr
  2848.  
  2849.  tst.b $5e(a5)
  2850.  beq.s .nobigscr
  2851.  tst.w WIDESCRN
  2852.  ble.s .nobigscr
  2853.  
  2854.  sub.w #2,WIDESCRN
  2855.  
  2856. .nobigscr
  2857.  
  2858.  
  2859.  tst.b (a5)
  2860.  beq.s .nosavescrn
  2861.  
  2862.  not.b USEDOUG
  2863.  
  2864.  jsr SAVETHESCREEN
  2865.  
  2866. .nosavescrn:
  2867.  
  2868.  tst.b $5b(a5)
  2869.  beq notdoubheight
  2870.  tst.b LASTDH
  2871.  bne notdoubheight2
  2872.  move.l SCRNSHOWPT,a0
  2873.  jsr WIPEDISPLAY
  2874.  move.l SCRNDRAWPT,a0
  2875.  jsr WIPEDISPLAY
  2876.  st LASTDH 
  2877.  
  2878.  move.w #0,d0
  2879.  move.w #0,d1
  2880.  
  2881.  not.b DOUBLEHEIGHT
  2882.  beq.s singlepixheight
  2883.  move.w #-40,d0
  2884.  move.w #40,d1
  2885.  
  2886. singlepixheight:
  2887.  
  2888.  move.l #SCRMODULOS,a0
  2889.  move.w #115,d2
  2890. putinmode:
  2891.  move.w d0,6(a0)
  2892.  move.w d0,6+4(a0)
  2893.  move.w d1,6+16(a0)
  2894.  move.w d1,6+16+4(a0)
  2895.  add.w #32,a0
  2896.  dbra d2,putinmode
  2897.  
  2898.  bra notdoubheight2
  2899.  
  2900. notdoubheight:
  2901.  clr.b LASTDH
  2902. notdoubheight2
  2903.  
  2904.  tst.b $5a(a5)
  2905.  beq.s notdoubwidth
  2906.  tst.b LASTDW
  2907.  bne notdoubwidth2
  2908.  move.l SCRNSHOWPT,a0
  2909.  jsr WIPEDISPLAY
  2910.  move.l SCRNDRAWPT,a0
  2911.  jsr WIPEDISPLAY
  2912.  st LASTDW
  2913.  not.b DOUBLEWIDTH
  2914.  bra.s notdoubwidth2
  2915.  
  2916. notdoubwidth:
  2917.  clr.b LASTDW
  2918. notdoubwidth2:
  2919.  
  2920. ***************************************** 
  2921.  move.l PLR2_Roompt,a0
  2922.  move.l #WorkSpace,a1
  2923.  clr.l (a1)
  2924.  clr.l 4(a1)
  2925.  clr.l 8(a1)
  2926.  clr.l 12(a1)
  2927.  clr.l 16(a1)
  2928.  clr.l 20(a1)
  2929.  clr.l 24(a1)
  2930.  clr.l 28(a1)
  2931.  
  2932.  cmp.b #'n',mors
  2933.  beq.s plr1only
  2934.  
  2935.  lea ToListOfGraph(a0),a0
  2936. .doallrooms:
  2937.  move.w (a0),d0
  2938.  blt.s .allroomsdone
  2939.  addq #8,a0
  2940.  move.w d0,d1
  2941.  asr.w #3,d0
  2942.  bset d1,(a1,d0.w)
  2943.  bra .doallrooms
  2944. .allroomsdone:
  2945.  
  2946. plr1only:
  2947.  
  2948.  move.l PLR1_Roompt,a0
  2949.  lea ToListOfGraph(a0),a0
  2950. .doallrooms2:
  2951.  move.w (a0),d0
  2952.  blt.s .allroomsdone2
  2953.  addq #8,a0
  2954.  move.w d0,d1
  2955.  asr.w #3,d0
  2956.  bset d1,(a1,d0.w)
  2957.  bra .doallrooms2
  2958. .allroomsdone2:
  2959.  
  2960.  move.l #%000001,d7
  2961.  lea TEAMWORK,a2
  2962.  move.l ObjectData,a0
  2963.  sub.w #64,a0
  2964. .doallobs:
  2965.  add.w #64,a0
  2966.  move.w (a0),d0
  2967.  blt.s .allobsdone
  2968.  move.w 12(a0),d0
  2969.  blt.s .doallobs
  2970.  move.w d0,d1
  2971.  asr.w #3,d0
  2972.  btst d1,(a1,d0.w)
  2973.  bne.s .worryobj
  2974.  move.b 16(a0),d0
  2975.  btst d0,d7
  2976.  beq.s .doallobs
  2977.  moveq #0,d0
  2978.  move.b teamnumber(a0),d0
  2979.  blt.s .doallobs
  2980.  asl.w #4,d0
  2981.  tst.w SEENBY(a2,d0.w)
  2982.  blt.s .doallobs
  2983. .worryobj:
  2984.  or.b #127,worry(a0)
  2985.  bra.s .doallobs
  2986. .allobsdone:
  2987.  
  2988.  
  2989.  
  2990. ; move.l #brightentab,a0
  2991. ; move.l frompt,a3
  2992. ; adda.w #(4*33)+(104*4*20),a3
  2993. ; move.w #20,d7
  2994. ; move.w #20,d6
  2995. ;horl:
  2996. ; move.w d6,d5
  2997. ; move.l a3,a1
  2998. ;vertl
  2999. ; move.w (a1),d0
  3000. ; move.w (a0,d0.w*2),(a1)
  3001. ; addq #4,a1
  3002. ; dbra d5,vertl
  3003. ; adda.w #104*4,a3
  3004. ; dbra d7,horl
  3005.  
  3006.  move.l #$dff000,a6
  3007.  
  3008. ; move.w #$300,col0(a6)
  3009.  
  3010.  move.l #KeyMap,a5
  3011.  tst.b $45(a5)
  3012.  beq.s noend
  3013.  
  3014.  cmp.b #'s',mors
  3015.  beq plr2quit 
  3016.  
  3017.  st MASTERQUITTING
  3018.  bra noend
  3019.  
  3020. plr2quit:
  3021.  st SLAVEQUITTING
  3022. noend:
  3023.  
  3024.  tst.b MASTERQUITTING
  3025.  beq.s .noquit
  3026.  tst.b SLAVEQUITTING
  3027.  beq.s .noquit
  3028.  jmp endnomusic
  3029. .noquit
  3030.  
  3031.  cmp.b #'n',mors
  3032.  bne.s noexit
  3033.  move.l PLR1_Roompt,a0
  3034.  move.w (a0),d0
  3035. ; move.w PLOPT,d1
  3036. ; move.l #ENDZONES,a0
  3037. ; cmp.w (a0,d1.w*2),d0
  3038.  
  3039.  cmp.w ENDZONE,d0
  3040.  
  3041. ; change this for quick exit, charlie
  3042. zzzz:
  3043. ; bra end
  3044.  
  3045.  bne.s noexit
  3046.  add.w #2,TELVAL
  3047.  cmp.w #9,TELVAL
  3048.  blt noexit
  3049.  
  3050.  jmp end
  3051. noexit:
  3052.  
  3053. ; tst.w PLAYERONEHEALTH
  3054. ; bgt nnoend1
  3055. ; jmp end
  3056. ;nnoend1:
  3057. ; tst.w PLAYERTWOHEALTH
  3058. ; bgt nnoend2
  3059. ; jmp end
  3060. ;nnoend2:
  3061.  
  3062. ; move.l SwitchData,a0
  3063. ; tst.b 24+8(a0)
  3064. ; bne end
  3065.   
  3066. ; JSR STOPTIMER
  3067.  
  3068.  
  3069.  bra lop
  3070.  
  3071.  
  3072.  
  3073.  include "ab3:source_4000/ab3diipatchidr.s"
  3074.  
  3075. CLRTWOLINES:
  3076.  
  3077.  move.l d2,-(a7)
  3078.  
  3079.  moveq #0,d1
  3080.  move.w #7,d2
  3081. .ccc
  3082.  move.l d1,2(a0)
  3083.  move.l d1,6(a0)
  3084.  move.l d1,10(a0)
  3085.  move.l d1,14(a0)
  3086.  move.l d1,18(a0)
  3087.  move.l d1,22(a0)
  3088.  move.l d1,26(a0)
  3089.  move.l d1,30(a0)
  3090.  move.l d1,34(a0)
  3091.  move.l d1,2+40(a0)
  3092.  move.l d1,6+40(a0)
  3093.  move.l d1,10+40(a0)
  3094.  move.l d1,14+40(a0)
  3095.  move.l d1,18+40(a0)
  3096.  move.l d1,22+40(a0)
  3097.  move.l d1,26+40(a0)
  3098.  move.l d1,30+40(a0)
  3099.  move.l d1,34+40(a0)
  3100.  add.l #10240,a0
  3101.  dbra d2,.ccc
  3102.  move.l (a7)+,d2
  3103.  rts
  3104.  
  3105.  
  3106. LASTDH: dc.b 0
  3107. LASTDW: dc.b 0
  3108. WIDESCRN: dc.w 0
  3109. TRRANS: dc.w 0
  3110. DOANYWATER: dc.w 0
  3111.  
  3112. DoTheMapWotNastyCharlesIsForcingMeToDo:
  3113.  
  3114.  move.l TexturePal,a4
  3115.  add.l #256*32,a4
  3116. ; add.w MAPBRIGHT,a4
  3117.  
  3118.  move.l #KeyMap,a5
  3119.  tst.b $50(a5)
  3120.  beq.s .nobrighter
  3121.  tst.w MAPBRIGHT
  3122.  beq.s .nobrighter
  3123.  
  3124.  sub.w #1,MAPBRIGHT
  3125.  
  3126. .nobrighter:
  3127.  
  3128.  tst.b $51(a5)
  3129.  beq.s .nodimmer
  3130.  cmp.w #7,MAPBRIGHT
  3131.  bge.s .nodimmer
  3132.  
  3133.  add.w #1,MAPBRIGHT
  3134.  
  3135. .nodimmer:
  3136.  
  3137.  move.l #Rotated,a1
  3138.  move.l #COMPACTMAP,a2
  3139.  move.l #BIGMAP-40,a3
  3140.  
  3141. preshow:
  3142.  add.w #40,a3
  3143.  
  3144. SHOWMAP:
  3145.  move.l (a2)+,d5
  3146.  move.l a2,d7
  3147.  cmp.l LASTZONE,d7
  3148.  bgt shownmap
  3149.  
  3150.  tst.l d5
  3151.  beq.s preshow
  3152.  
  3153.  move.w #9,d7
  3154. wallsofzone
  3155.  
  3156.  asr.l #1,d5
  3157.  bcs.s WALLSEEN
  3158.  
  3159.  asr.l #1,d5
  3160.  bcs.s WALLMAPPED
  3161.  
  3162.  asr.l #1,d5
  3163.  addq #4,a3
  3164.  bra.s DECIDEDWALL
  3165.  
  3166. WALLMAPPED:
  3167.  move.w #$b00,d4
  3168.  asr.l #1,d5
  3169.  bcc.s .notadoor
  3170.  move.w #$e00,d4
  3171. .notadoor
  3172.  
  3173.  st TRRANS
  3174.  
  3175.  bra.s DECIDEDCOLOUR
  3176.  
  3177. WALLSEEN:
  3178.  
  3179.  clr.b TRRANS
  3180.  
  3181.  move.w #255,d4
  3182.  asr.l #2,d5
  3183.  bcc.s .notadoor
  3184.  move.w #254,d4
  3185. .notadoor
  3186. DECIDEDCOLOUR:
  3187.  move.w (a3)+,d6
  3188.  move.l (a1,d6.w*8),d0
  3189.  asr.l #7,d0
  3190.  movem.l d7/d5,-(a7)
  3191.  move.w mapxoff,d5
  3192.  ext.l d5
  3193.  add.l d5,d0
  3194.  move.l 4(a1,d6.w*8),d1
  3195.  move.w mapzoff,d5
  3196.  ext.l d5
  3197.  add.l d5,d1
  3198.  move.w (a3)+,d6
  3199.  move.l (a1,d6.w*8),d2
  3200.  move.w mapxoff,d5
  3201.  ext.l d5
  3202.  asr.l #7,d2
  3203.  add.l d5,d2
  3204.  move.l 4(a1,d6.w*8),d3
  3205.  move.w mapzoff,d5
  3206.  ext.l d5
  3207.  add.l d5,d3
  3208.  
  3209.  neg.l d1
  3210.  neg.l d3
  3211.  
  3212.  bsr CLIPANDDRAW
  3213.  movem.l (a7)+,d7/d5
  3214.  
  3215. DECIDEDWALL:
  3216.  
  3217.  dbra d7,wallsofzone
  3218.  bra SHOWMAP
  3219.  
  3220. shownmap:
  3221.  
  3222.  clr.b TRRANS
  3223.  
  3224.  move.w mapxoff,d0
  3225.  ext.l d0
  3226.  move.w mapzoff,d1
  3227.  ext.l d1
  3228.  neg.l d1
  3229.  move.l d0,d2
  3230.  move.l d1,d3
  3231.  sub.l #128,d1
  3232.  add.l #128,d3
  3233.  move.w #250,d4
  3234.  bsr CLIPANDDRAW
  3235.  
  3236.  move.w mapxoff,d0
  3237.  ext.l d0
  3238.  move.w mapzoff,d1
  3239.  ext.l d1
  3240.  neg.l d1
  3241.  move.l d0,d2
  3242.  move.l d1,d3
  3243.  sub.l #128,d1
  3244.  sub.l #32,d3
  3245.  sub.l #64,d2
  3246.  move.w #250,d4
  3247.  bsr CLIPANDDRAW
  3248.  
  3249.  move.w mapxoff,d0
  3250.  ext.l d0
  3251.  move.w mapzoff,d1
  3252.  ext.l d1
  3253.  neg.l d1
  3254.  move.l d0,d2
  3255.  move.l d1,d3
  3256.  sub.l #128,d1
  3257.  sub.l #32,d3
  3258.  add.l #64,d2
  3259.  move.w #250,d4
  3260.  bsr CLIPANDDRAW
  3261.  rts
  3262.  
  3263.  
  3264. CLIPANDDRAW:
  3265.  
  3266.  tst.b FULLSCR
  3267.  beq.s .nodov
  3268.  
  3269.  add.l d0,d0
  3270.  add.l d2,d2
  3271.  ext.l d0
  3272.  ext.l d2
  3273.  divs.l #3,d0
  3274.  divs.l #3,d2
  3275.  
  3276. .nodov:
  3277.  
  3278.  move.w MAPBRIGHT,d5
  3279.  asr.l d5,d0
  3280.  asr.l d5,d1
  3281.  asr.l d5,d2
  3282.  asr.l d5,d3
  3283.  
  3284. NOSCALING:
  3285.  add.l #96,d0
  3286.  bge p1xpos
  3287.  
  3288.  add.l #96,d2
  3289.  blt OFFSCREEN
  3290.  
  3291. x1nx2p:
  3292.  
  3293.  move.l d3,d5
  3294.  sub.l d1,d5
  3295.  move.l d2,d6
  3296.  sub.l d0,d6
  3297.  beq OFFSCREEN
  3298.  
  3299.  muls.l d0,d5
  3300.  divs.l d6,d5
  3301.  sub.l d5,d1
  3302.  move.l #0,d0
  3303.  
  3304.  bra doneleftclip
  3305.  
  3306. p1xpos:
  3307.  
  3308.  add.l #96,d2
  3309.  bge doneleftclip
  3310.  
  3311.  move.l d1,d5
  3312.  sub.l d3,d5
  3313.  move.l d0,d6
  3314.  sub.l d2,d6
  3315.  beq OFFSCREEN
  3316.  
  3317.  muls.l d2,d5
  3318.  divs.l d6,d5
  3319.  sub.l d5,d3
  3320.  move.l #0,d2
  3321.  
  3322. doneleftclip:
  3323.  
  3324.  cmp.l #191,d0
  3325.  ble p1xneg
  3326.  
  3327.  cmp.l #191,d2
  3328.  bgt OFFSCREEN
  3329.  
  3330.  move.l d0,d6
  3331.  sub.l d2,d6
  3332.  beq OFFSCREEN
  3333.  sub.l #191,d0
  3334.  move.l d3,d5
  3335.  sub.l d1,d5
  3336.  
  3337.  muls.l d5,d0
  3338.  divs.l d6,d0
  3339.  add.l d0,d1
  3340.  move.l #191,d0
  3341.  
  3342.  bra donerightclip
  3343.  
  3344. p1xneg:
  3345.  
  3346.  cmp.l #191,d2
  3347.  ble donerightclip
  3348.  
  3349.  move.l d2,d6
  3350.  sub.l d0,d6
  3351.  beq OFFSCREEN
  3352.  sub.l #191,d2
  3353.  move.l d1,d5
  3354.  sub.l d3,d5
  3355.  
  3356.  muls.l d5,d2
  3357.  divs.l d6,d2
  3358.  add.l d2,d3
  3359.  move.l #191,d2
  3360.  
  3361. donerightclip:
  3362.  
  3363. *********************************
  3364.  
  3365.  add.l #80,d1
  3366.  bge p1ypos
  3367.  
  3368.  add.l #80,d3
  3369.  blt OFFSCREEN
  3370.  
  3371.  move.l d2,d5
  3372.  sub.l d0,d5
  3373.  move.l d3,d6
  3374.  sub.l d1,d6
  3375.  beq OFFSCREEN
  3376.  
  3377.  muls.l d1,d5
  3378.  divs.l d6,d5
  3379.  sub.l d5,d0
  3380.  move.l #0,d1
  3381.  
  3382.  bra donetopclip
  3383.  
  3384. p1ypos:
  3385.  
  3386.  add.l #80,d3
  3387.  bge donetopclip
  3388.  
  3389.  move.l d0,d5
  3390.  sub.l d2,d5
  3391.  move.l d1,d6
  3392.  sub.l d3,d6
  3393.  beq OFFSCREEN
  3394.  
  3395.  muls.l d3,d5
  3396.  divs.l d6,d5
  3397.  sub.l d5,d2
  3398.  move.l #0,d3
  3399.  
  3400. donetopclip:
  3401.  
  3402.  cmp.l #159,d1
  3403.  ble p1yneg
  3404.  
  3405.  cmp.l #159,d3
  3406.  bgt OFFSCREEN
  3407.  
  3408.  move.l d1,d6
  3409.  sub.l d3,d6
  3410.  beq OFFSCREEN
  3411.  sub.l #159,d1
  3412.  move.l d2,d5
  3413.  sub.l d0,d5
  3414.  
  3415.  muls.l d5,d1
  3416.  divs.l d6,d1
  3417.  add.l d1,d0
  3418.  move.l #159,d1
  3419.  
  3420.  bra donebotclip
  3421.  
  3422. p1yneg:
  3423.  
  3424.  cmp.l #159,d3
  3425.  ble donebotclip
  3426.  
  3427.  move.l d3,d6
  3428.  sub.l d1,d6
  3429.  beq OFFSCREEN
  3430.  sub.l #159,d3
  3431.  move.l d0,d5
  3432.  sub.l d2,d5
  3433.  
  3434.  muls.l d5,d3
  3435.  divs.l d6,d3
  3436.  add.l d3,d2
  3437.  move.l #159,d3
  3438.  
  3439. donebotclip:
  3440.  
  3441.  tst.b TRRANS
  3442.  bne DRAWAtransLINE
  3443.  bra DRAWAMAPLINE
  3444.  
  3445. OFFSCREEN:
  3446. NOLINEtrans:
  3447.  rts
  3448.  
  3449. MAPBRIGHT:
  3450.  dc.w 3
  3451. mapxoff: dc.w 0
  3452. mapzoff: dc.w 0
  3453.  
  3454. DRAWAtransLINE:
  3455.  
  3456.  move.l FASTBUFFER,a0    ; screen to render to.
  3457.  
  3458.  tst.b FULLSCR
  3459.  beq.s .nooffset
  3460.   
  3461.  add.l #(320*40)+(48*2),a0
  3462.   
  3463. .nooffset:
  3464.  
  3465.  cmp.w d1,d3
  3466.  bgt.s .okdown
  3467.  bne.s .aline
  3468.  cmp.w d0,d2
  3469.  beq.s NOLINEtrans 
  3470. .aline
  3471.  exg d0,d2
  3472.  exg d1,d3
  3473. .okdown
  3474.  
  3475.  move.w d1,d5
  3476.  muls #320,d5
  3477.  add.l d5,a0
  3478.  lea (a0,d0.w*2),a0
  3479.  
  3480.  sub.w d1,d3
  3481.  
  3482.  sub.w d0,d2
  3483.  bge.s downrighttrans
  3484.  
  3485. downlefttrans:
  3486.  neg.w d2
  3487.  cmp.w d2,d3
  3488.  bgt.s downmorelefttrans
  3489.  
  3490. downleftmoretrans:
  3491.  move.w #320,d6
  3492.  move.w d2,d0
  3493.  move.w d2,d7
  3494.  
  3495. .linelop:
  3496.  move.b (a0),d4
  3497.  move.b (a4,d4.w*2),(a0)
  3498.  subq #1,a0
  3499.  sub.w d3,d0
  3500.  bgt.s .noextra
  3501.  add.w d2,d0
  3502.  add.w d6,a0
  3503. .noextra:
  3504.  dbra d7,.linelop
  3505.  rts
  3506.  
  3507. downmorelefttrans:
  3508.  move.w #320,d6
  3509.  move.w d3,d0
  3510.  move.w d3,d7
  3511.  
  3512. .linelop:
  3513.  move.b (a0),d4
  3514.  move.b (a4,d4.w*2),(a0)
  3515.  add.w d6,a0
  3516.  sub.w d2,d0
  3517.  bgt.s .noextra
  3518.  add.w d3,d0
  3519.  subq #1,a0
  3520. .noextra:
  3521.  dbra d7,.linelop
  3522.  
  3523.  rts
  3524.  
  3525. downrighttrans:
  3526.  
  3527.  cmp.w d2,d3
  3528.  bgt.s downmorerighttrans
  3529.  
  3530. downrightmoretrans:
  3531.  move.w #320,d6
  3532.  move.w d2,d0
  3533.  move.w d2,d7
  3534.  
  3535. .linelop:
  3536.  move.b (a0),d4
  3537.  move.b (a4,d4.w*2),(a0)+
  3538.  sub.w d3,d0
  3539.  bgt.s .noextra
  3540.  add.w d2,d0
  3541.  add.w d6,a0
  3542. .noextra:
  3543.  dbra d7,.linelop
  3544.  
  3545.  rts
  3546.  
  3547. downmorerighttrans:
  3548.  move.w #320,d6
  3549.  move.w d3,d0
  3550.  move.w d3,d7
  3551.  
  3552. .linelop:
  3553.  move.b (a0),d4
  3554.  move.b (a4,d4.w*2),(a0)
  3555.  add.w d6,a0
  3556.  sub.w d2,d0
  3557.  bgt.s .noextra
  3558.  add.w d3,d0
  3559.  addq #1,a0
  3560. .noextra:
  3561.  dbra d7,.linelop
  3562.  
  3563.  rts
  3564.  
  3565. NOLINE:
  3566.  rts
  3567.  
  3568. DRAWAMAPLINE:
  3569.  
  3570.  
  3571.  move.b DOUBLEHEIGHT,d5
  3572.  or.b DOUBLEWIDTH,d5
  3573.  tst.b d5
  3574.  bne DOITFAT
  3575.  
  3576.  move.l FASTBUFFER,a0    ; screen to render to.
  3577.  cmp.w d1,d3
  3578.  bgt.s .okdown
  3579.  bne.s .aline
  3580.  cmp.w d0,d2
  3581.  beq.s NOLINE 
  3582. .aline
  3583.  exg d0,d2
  3584.  exg d1,d3
  3585. .okdown
  3586.  
  3587.  move.w d1,d5
  3588.  muls #320,d5
  3589.  add.l d5,a0
  3590.  lea (a0,d0.w),a0
  3591.  
  3592.  sub.w d1,d3
  3593.  
  3594.  sub.w d0,d2
  3595.  bge.s downright
  3596.  
  3597. downleft:
  3598.  neg.w d2
  3599.  cmp.w d2,d3
  3600.  bgt.s downmoreleft
  3601.  
  3602. downleftmore:
  3603.  move.w #320,d6
  3604.  move.w d2,d0
  3605.  move.w d2,d7
  3606.  addq #1,a0
  3607.  
  3608. .linelop
  3609.  move.b d4,-(a0)
  3610.  sub.w d3,d0
  3611.  bgt.s .noextra
  3612.  add.w d2,d0
  3613.  add.w d6,a0
  3614. .noextra:
  3615.  dbra d7,.linelop
  3616.  rts
  3617.  
  3618. downmoreleft:
  3619.  move.w #320,d6
  3620.  move.w d3,d0
  3621.  move.w d3,d7
  3622.  
  3623. .linelop:
  3624.  move.b d4,(a0)
  3625.  add.w d6,a0
  3626.  sub.w d2,d0
  3627.  bgt.s .noextra
  3628.  add.w d3,d0
  3629.  subq #1,a0
  3630. .noextra:
  3631.  dbra d7,.linelop
  3632.  
  3633.  rts
  3634.  
  3635. downright:
  3636.  
  3637.  cmp.w d2,d3
  3638.  bgt.s downmoreright
  3639.  
  3640. downrightmore:
  3641.  move.w #320,d6
  3642.  move.w d2,d0
  3643.  move.w d2,d7
  3644.  
  3645. .linelop:
  3646.  move.b d4,(a0)+
  3647.  sub.w d3,d0
  3648.  bgt.s .noextra
  3649.  add.w d2,d0
  3650.  add.w d6,a0
  3651. .noextra:
  3652.  dbra d7,.linelop
  3653.  
  3654.  rts
  3655.  
  3656. downmoreright:
  3657.  move.w #320,d6
  3658.  move.w d3,d0
  3659.  move.w d3,d7
  3660.  
  3661. .linelop:
  3662.  move.b d4,(a0)
  3663.  add.w d6,a0
  3664.  sub.w d2,d0
  3665.  bgt.s .noextra
  3666.  add.w d3,d0
  3667.  addq #1,a0
  3668. .noextra:
  3669.  dbra d7,.linelop
  3670.  
  3671.  rts
  3672.  
  3673.  
  3674. DOITFAT:
  3675.  move.l FASTBUFFER,a0    ; screen to render to.
  3676.  cmp.w d1,d3
  3677.  bgt.s .okdown
  3678.  bne.s .aline
  3679.  cmp.w d0,d2
  3680.  beq NOLINE 
  3681. .aline
  3682.  exg d0,d2
  3683.  exg d1,d3
  3684. .okdown
  3685.  
  3686.  move.w d1,d5
  3687.  muls #320,d5
  3688.  add.l d5,a0
  3689.  lea (a0,d0.w),a0
  3690.  
  3691.  sub.w d1,d3
  3692.  
  3693.  sub.w d0,d2
  3694.  bge.s downrightFAT
  3695.  
  3696. downleftFAT:
  3697.  neg.w d2
  3698.  cmp.w d2,d3
  3699.  bgt.s downmoreleftFAT
  3700.  
  3701. downleftmoreFAT:
  3702.  move.w #320,d6
  3703.  move.w d2,d0
  3704.  move.w d2,d7
  3705.  addq #1,a0
  3706.  
  3707. .linelop
  3708.  move.b d4,319(a0)
  3709.  move.b d4,(a0)
  3710.  move.b d4,-(a0)
  3711.  sub.w d3,d0
  3712.  bgt.s .noextra
  3713.  add.w d2,d0
  3714.  add.w d6,a0
  3715. .noextra:
  3716.  dbra d7,.linelop
  3717.  rts
  3718.  
  3719. downmoreleftFAT:
  3720.  move.w #320,d6
  3721.  move.w d3,d0
  3722.  move.w d3,d7
  3723.  
  3724. .linelop:
  3725.  move.b d4,320(a0)
  3726.  move.b d4,1(a0)
  3727.  move.b d4,(a0)
  3728.  add.w d6,a0
  3729.  sub.w d2,d0
  3730.  bgt.s .noextra
  3731.  add.w d3,d0
  3732.  subq #1,a0
  3733. .noextra:
  3734.  dbra d7,.linelop
  3735.  
  3736.  rts
  3737.  
  3738. downrightFAT:
  3739.  
  3740.  cmp.w d2,d3
  3741.  bgt.s downmorerightFAT
  3742.  
  3743. downrightmoreFAT:
  3744.  move.w #320,d6
  3745.  move.w d2,d0
  3746.  move.w d2,d7
  3747.  
  3748. .linelop:
  3749.  move.b d4,320(a0)
  3750.  move.b d4,(a0)+
  3751.  move.b d4,(a0)
  3752.  sub.w d3,d0
  3753.  bgt.s .noextra
  3754.  add.w d2,d0
  3755.  add.w d6,a0
  3756. .noextra:
  3757.  dbra d7,.linelop
  3758.  
  3759.  rts
  3760.  
  3761. downmorerightFAT:
  3762.  move.w #320,d6
  3763.  move.w d3,d0
  3764.  move.w d3,d7
  3765.  
  3766. .linelop:
  3767.  move.b d4,320(a0)
  3768.  move.b d4,1(a0)
  3769.  move.b d4,(a0)
  3770.  add.w d6,a0
  3771.  sub.w d2,d0
  3772.  bgt.s .noextra
  3773.  add.w d3,d0
  3774.  addq #1,a0
  3775. .noextra:
  3776.  dbra d7,.linelop
  3777.  
  3778.  rts
  3779.  
  3780.  
  3781. SAVETHESCREEN:
  3782.  
  3783.  move.l old,$dff080
  3784.  move.w #$8020,$dff000+intena
  3785.  
  3786.  move.l _IntuitionBase,a6
  3787.  jsr _LVORethinkDisplay(a6)
  3788.  
  3789.  move.l doslib,a6
  3790.  move.l #SAVENAME,d1
  3791.  move.l #1006,d2
  3792.  jsr -30(a6)
  3793.  move.l d0,handle
  3794.  
  3795.  move.l doslib,a6
  3796.  move.l SCRNDRAWPT,d2
  3797.  move.l handle,d1
  3798.  move.l #10240*8,d3
  3799.  jsr _LVOWrite(a6)
  3800.  
  3801.  move.l doslib,a6
  3802.  move.l handle,d1
  3803.  jsr -36(a6)
  3804.  
  3805.  move.l doslib,a6
  3806.  move.l #200,d1
  3807.  jsr -198(a6) 
  3808.  
  3809.  move.w #$0020,$dff000+intena
  3810.  move.l #bigfield,$dff080
  3811.  
  3812.  add.b #1,SAVELETTER
  3813.  
  3814.  rts
  3815.  
  3816. SAVENAME: dc.b 'work:rawscrn'
  3817. SAVELETTER: dc.b 'd',0
  3818.  
  3819.  even
  3820.  
  3821.  include "ab3:source_4000/CHUNKY.s"
  3822.  
  3823.  
  3824. MASTERQUITTING: dc.b 0
  3825. SLAVEQUITTING: dc.b 0
  3826. MASTERPAUSE: dc.b 0
  3827. SLAVEPAUSE: dc.b 0
  3828.  
  3829. PAUSEOPTS:
  3830.  include "ab3:source_4000/pauseopts"
  3831.  
  3832. ENDZONE: dc.w 0
  3833.  
  3834. ENDZONES:
  3835. ; LEVEL 1
  3836.  dc.w -1
  3837. ; dc.w 55
  3838. ; LEVEL 2
  3839.  dc.w 149
  3840. ; LEVEL 3
  3841.  dc.w 155
  3842. ; LEVEL 4
  3843.  dc.w 107
  3844. ; LEVEL 5
  3845.  dc.w 67
  3846. ; LEVEL 6
  3847.  dc.w 132
  3848. ; LEVEL 7
  3849.  dc.w 203
  3850. ; LEVEL 8
  3851.  dc.w 166
  3852. ; LEVEL 9
  3853.  dc.w 118
  3854. ; LEVEL 10
  3855.  dc.w 102
  3856. ; LEVEL 11
  3857.  dc.w 103
  3858. ; LEVEL 12
  3859.  dc.w 2
  3860. ; LEVEL 13
  3861.  dc.w 98
  3862. ; LEVEL 14
  3863.  dc.w 0
  3864. ; LEVEL 15
  3865.  dc.w 148
  3866. ; LEVEL 16
  3867.  dc.w 103
  3868.  
  3869. ***************************************************************************
  3870. ***************************************************************************
  3871. ****************** End of Main Loop here ********************************** 
  3872. ***************************************************************************
  3873. ***************************************************************************
  3874.  
  3875. putinsmallscr:
  3876.  
  3877.  rts
  3878.  
  3879.  move.l #$1fe0000,statskip
  3880.  move.l #$1fe0000,statskip+4
  3881.  
  3882.  move.l #healthpal,a5
  3883. ; move.l COPSCRN1,a0
  3884. ; move.l COPSCRN2,a2
  3885.  move.w #scrheight-1,d0
  3886.  move.l #0,d6
  3887.  move.w #0,d3
  3888.  move.w #$2bdf,startwait
  3889.  move.w #$2d01,endwait
  3890. .fillcop
  3891.  move.w #$180,d1
  3892.  
  3893.  move.l a0,a1
  3894.  move.l a2,a3
  3895.  move.w #$10c,(a1)+
  3896.  move.w #$10c,(a3)+
  3897.  move.w d3,(a1)+
  3898.  move.w d3,(a3)+
  3899.  eor.w #$8000,d3
  3900.  
  3901.  move.w #$106,(a1)+
  3902.  move.w #$106,(a3)+
  3903.  move.w #$2c42,d5
  3904.  or.w d3,d5
  3905.  and.w #$fffe,d5
  3906.  move.w d5,(a1)+
  3907.  move.w d5,(a3)+
  3908.  bsr do32
  3909.  
  3910.  move.w #$106,(a1)+
  3911.  move.w #$106,(a3)+
  3912.  move.w #$4c42,d5
  3913.  or.w d3,d5
  3914.  and.w #$fffe,d5
  3915.  move.w d5,(a1)+
  3916.  move.w d5,(a3)+
  3917.  bsr do32
  3918.  
  3919.  move.w #$106,(a1)+
  3920.  move.w #$106,(a3)+
  3921.  move.w #$6c42,d5
  3922.  or.w d3,d5
  3923.  and.w #$fffe,d5
  3924.  move.w d5,(a1)+
  3925.  move.w d5,(a3)+
  3926.  bsr do32
  3927.  
  3928.  
  3929.  move.l #$1060c42,(a1)+
  3930.  move.l #$1060c42,(a3)+
  3931.  move.w #$19e,(a1)+
  3932.  move.w (a5),(a1)+
  3933.  move.w #$19e,(a3)+
  3934.  move.w (a5)+,(a3)+
  3935.  
  3936. **********************************
  3937.  
  3938.  adda.w #104*4,a0
  3939.  adda.w #104*4,a2
  3940.  dbra d0,.fillcop
  3941.  
  3942.  move.w #$48,fetchstart
  3943.  move.w #$88,fetchstop
  3944.  move.w #$2cb1,winstart
  3945.  move.w #$2c91,winstop
  3946.  move.w #-24,modulo
  3947.  move.w #-24,modulo+4
  3948.  
  3949.  move.l #nullspr,d0
  3950.  move.w d0,s4l
  3951.  move.w d0,s5l
  3952.  move.w d0,s6l
  3953.  move.w d0,s7l
  3954.  swap d0
  3955.  move.w d0,s4h
  3956.  move.w d0,s5h
  3957.  move.w d0,s6h
  3958.  move.w d0,s7h 
  3959.  
  3960. ; move.l #borders,d0
  3961. ; move.w d0,s0l
  3962. ; swap d0
  3963. ; move.w d0,s0h
  3964. ; move.l #borders+2592,d0
  3965. ; move.w d0,s1l
  3966. ; swap d0
  3967. ; move.w d0,s1h
  3968. ; move.l #borders+2592*2,d0
  3969. ; move.w d0,s2l
  3970. ; swap d0
  3971. ; move.w d0,s2h
  3972. ; move.l #borders+2592*3,d0
  3973. ; move.w d0,s3l
  3974. ; swap d0
  3975. ; move.w d0,s3h
  3976.  
  3977.  
  3978.  move.l scrn,a0
  3979.  add.l #40,a0
  3980.  move.l scrn,a1
  3981.  add.l #160,a1
  3982.  move.l scrn,a2
  3983.  add.l #280,a2
  3984.  move.l #smallscrntab,a3
  3985.  move.w #191,d7    ; counter
  3986.  move.w #0,d1    ; xpos
  3987. .plotscrnloop:
  3988.  move.b (a3)+,d0
  3989.  move.w d1,d2
  3990.  asr.w #3,d2
  3991.  move.b d1,d3
  3992.  not.b d3
  3993.  bclr.b d3,-40(a0,d2.w)
  3994.  bclr.b d3,(a0,d2.w)
  3995.  bclr.b d3,40(a0,d2.w)
  3996.  bclr.b d3,-40(a1,d2.w)
  3997.  bclr.b d3,(a1,d2.w)
  3998.  bclr.b d3,40(a1,d2.w)
  3999.  bclr.b d3,-40(a2,d2.w)
  4000.  btst #0,d0
  4001.  beq.s .nobp1
  4002.  bset.b d3,-40(a0,d2.w)
  4003. .nobp1:
  4004.  btst #1,d0
  4005.  beq.s .nobp2
  4006.  bset.b d3,(a0,d2.w)
  4007. .nobp2:
  4008.  btst #2,d0
  4009.  beq.s .nobp3
  4010.  bset.b d3,40(a0,d2.w)
  4011. .nobp3:
  4012.  btst #3,d0
  4013.  beq.s .nobp4
  4014.  bset.b d3,-40(a1,d2.w)
  4015. .nobp4:
  4016.  btst #4,d0
  4017.  beq.s .nobp5
  4018.  bset.b d3,(a1,d2.w)
  4019. .nobp5:
  4020.  btst #5,d0
  4021.  beq.s .nobp6
  4022.  bset.b d3,40(a1,d2.w)
  4023. .nobp6:
  4024.  btst #6,d0
  4025.  beq.s .nobp7
  4026.  bset.b d3,-40(a2,d2.w)
  4027. .nobp7:
  4028.  
  4029.  addq #1,d1
  4030.  
  4031.  dbra d7,.plotscrnloop
  4032.  
  4033.  
  4034.  rts
  4035.  
  4036. putinlargescr:
  4037.  
  4038.  move.l #$1000000,statskip
  4039.  move.l #$fffffffe,statskip+4
  4040.  
  4041.  move.l #healthpal,a5
  4042. ; move.l COPSCRN1,a0
  4043. ; move.l COPSCRN2,a2
  4044.  move.w #scrheight-1,d0
  4045.  move.l #0,d6
  4046.  move.w #0,d3
  4047.  move.w #$29df,startwait
  4048.  move.w #$2b01,endwait
  4049. .fillcop
  4050.  move.w #$180,d1
  4051.  
  4052.  move.l a0,a1
  4053.  move.l a2,a3
  4054.  move.w #$10c,(a1)+
  4055.  move.w #$10c,(a3)+
  4056.  move.w d3,(a1)+
  4057.  move.w d3,(a3)+
  4058.  eor.w #$8000,d3
  4059.  
  4060.  move.w #$106,(a1)+
  4061.  move.w #$106,(a3)+
  4062.  move.w #$2c42,d5
  4063.  or.w d3,d5
  4064.  and.w #$fffe,d5
  4065.  move.w d5,(a1)+
  4066.  move.w d5,(a3)+
  4067.  bsr do32
  4068.  
  4069.  move.w #$106,(a1)+
  4070.  move.w #$106,(a3)+
  4071.  move.w #$4c42,d5
  4072.  or.w d3,d5
  4073.  and.w #$fffe,d5
  4074.  move.w d5,(a1)+
  4075.  move.w d5,(a3)+
  4076.  bsr do32
  4077.  
  4078.  move.w #$106,(a1)+
  4079.  move.w #$106,(a3)+
  4080.  move.w #$6c42,d5
  4081.  or.w d3,d5
  4082.  and.w #$fffe,d5
  4083.  move.w d5,(a1)+
  4084.  move.w d5,(a3)+
  4085.  bsr do32
  4086.  
  4087.  move.w startwait,(a1)+
  4088.  move.w #$fffe,(a1)+
  4089.  move.w endwait,(a1)+
  4090.  move.w #$ff00,(a1)+
  4091.  move.w startwait,(a3)+
  4092.  move.w #$fffe,(a3)+
  4093.  move.w endwait,(a3)+
  4094.  move.w #$ff00,(a3)+
  4095.  
  4096. ; move.l $1fe0000,(a1)+
  4097. ; move.l $1fe0000,(a3)+
  4098. ; move.l $1fe0000,(a1)+
  4099. ; move.l $1fe0000,(a3)+
  4100.  
  4101.  
  4102.  add.w #$300,startwait
  4103.  add.w #$300,endwait
  4104.  
  4105. ; move.l #$1060c42,(a1)+
  4106. ; move.l #$1060c42,(a3)+
  4107. ; move.w #$19e,(a1)+
  4108. ; move.w (a5),(a1)+
  4109. ; move.w #$19e,(a3)+
  4110. ; move.w (a5)+,(a3)+
  4111.  
  4112. **********************************
  4113.  
  4114.  adda.w #104*4,a0
  4115.  adda.w #104*4,a2
  4116.  dbra d0,.fillcop
  4117.  
  4118.  move.w #$38,fetchstart
  4119.  move.w #$b8,fetchstop
  4120.  move.w #$2c81,winstart
  4121.  move.w #$2cc1,winstop
  4122.  move.w #-40,modulo
  4123.  move.w #-40,modulo+4
  4124.  
  4125.  move.l #nullspr,d0
  4126.  move.w d0,s0l
  4127.  move.w d0,s1l
  4128.  move.w d0,s2l
  4129.  move.w d0,s3l
  4130.  move.w d0,s4l
  4131.  move.w d0,s5l
  4132.  move.w d0,s6l
  4133.  move.w d0,s7l
  4134.  swap d0
  4135.  move.w d0,s0h
  4136.  move.w d0,s1h
  4137.  move.w d0,s2h
  4138.  move.w d0,s3h
  4139.  move.w d0,s4h
  4140.  move.w d0,s5h
  4141.  move.w d0,s6h
  4142.  move.w d0,s7h 
  4143.  
  4144.  move.l scrn,a0
  4145.  move.l a0,a1
  4146.  move.l a0,a2
  4147.  add.l #40,a0
  4148.  add.l #160,a1
  4149.  add.l #280,a2
  4150.  move.l #scrntab,a3
  4151.  move.w #319,d7    ; counter
  4152.  move.w #0,d1    ; xpos
  4153. .plotscrnloop:
  4154.  move.b (a3)+,d0
  4155.  move.w d1,d2
  4156.  asr.w #3,d2
  4157.  move.b d1,d3
  4158.  not.b d3
  4159.  bclr.b d3,-40(a0,d2.w)
  4160.  bclr.b d3,(a0,d2.w)
  4161.  bclr.b d3,40(a0,d2.w)
  4162.  bclr.b d3,-40(a1,d2.w)
  4163.  bclr.b d3,(a1,d2.w)
  4164.  bclr.b d3,40(a1,d2.w)
  4165.  bclr.b d3,-40(a2,d2.w)
  4166.  btst #0,d0
  4167.  beq.s .nobp1
  4168.  bset.b d3,-40(a0,d2.w)
  4169. .nobp1:
  4170.  btst #1,d0
  4171.  beq.s .nobp2
  4172.  bset.b d3,(a0,d2.w)
  4173. .nobp2:
  4174.  btst #2,d0
  4175.  beq.s .nobp3
  4176.  bset.b d3,40(a0,d2.w)
  4177. .nobp3:
  4178.  btst #3,d0
  4179.  beq.s .nobp4
  4180.  bset.b d3,-40(a1,d2.w)
  4181. .nobp4:
  4182.  btst #4,d0
  4183.  beq.s .nobp5
  4184.  bset.b d3,(a1,d2.w)
  4185. .nobp5:
  4186.  btst #5,d0
  4187.  beq.s .nobp6
  4188.  bset.b d3,40(a1,d2.w)
  4189. .nobp6:
  4190.  btst #6,d0
  4191.  beq.s .nobp7
  4192.  bset.b d3,-40(a2,d2.w)
  4193. .nobp7:
  4194.  
  4195.  addq #1,d1
  4196.  
  4197.  dbra d7,.plotscrnloop
  4198.  
  4199.  rts
  4200.  
  4201. CLEARKEYBOARD:
  4202.  move.l #KeyMap,a5
  4203.  moveq #0,d0
  4204.  move.w #15,d1
  4205. clrloo:
  4206.  move.l d0,(a5)+
  4207.  move.l d0,(a5)+
  4208.  move.l d0,(a5)+
  4209.  move.l d0,(a5)+
  4210.  dbra d1,clrloo
  4211.  rts
  4212.  
  4213. READCONTROLS: dc.w 0
  4214.  
  4215. tstststst: dc.w 0
  4216.  
  4217. BollocksRoom:
  4218.  dc.w -1
  4219.  ds.l 50
  4220.  
  4221. GUNYOFFS:
  4222.  dc.w 20
  4223.  dc.w 20
  4224.  dc.w 0
  4225.  dc.w 20
  4226.  dc.w 20
  4227.  dc.w 0
  4228.  dc.w 0
  4229.  dc.w 20
  4230.  
  4231. PLR1_BOBBLEY: dc.l 0
  4232. PLR2_BOBBLEY: dc.l 0
  4233.  
  4234. USEPLR1:
  4235.  
  4236. ***********************************
  4237.  
  4238.  move.l PLR1_Obj,a0 
  4239.  move.b #4,16(a0)
  4240.  move.l ObjectPoints,a1
  4241.  move.l #ObjRotated,a2
  4242.  move.w (a0),d0
  4243.  move.l PLR1_xoff,(a1,d0.w*8)
  4244.  move.l PLR1_zoff,4(a1,d0.w*8)
  4245.  move.l PLR1_Roompt,a1
  4246.  
  4247.  moveq #0,d2
  4248.  move.b damagetaken(a0),d2
  4249.  beq .notbeenshot
  4250.  
  4251.  moveq #0,d4
  4252.  move.w ImpactX(a0),d3
  4253.  beq.s .notwist
  4254.  move.w d2,d4
  4255. .notwist:
  4256.  add.w d3,PLR1s_xspdval
  4257.  move.w ImpactZ(a0),d3
  4258.  beq.s .notwist2
  4259.  move.w d2,d4
  4260. .notwist2:
  4261.  add.w d3,PLR1s_zspdval
  4262.  move.w ImpactY(a0),d3
  4263.  ext.l d3
  4264.  asl.l #8,d3
  4265.  add.l d3,PLR1s_yvel
  4266.  
  4267.  move.w #0,ImpactX(a0)
  4268.  move.w #0,ImpactY(a0)
  4269.  move.w #0,ImpactZ(a0)
  4270.  
  4271.  jsr GetRand
  4272.  muls d4,d0
  4273.  asr.l #8,d0
  4274.  asr.l #4,d0
  4275.  add.w d0,PLR1s_angspd
  4276.  
  4277.  move.l #7*2116,hitcol
  4278.  sub.w d2,PLAYERONEHEALTH
  4279.  movem.l d0-d7/a0-a6,-(a7)
  4280.  move.w #$fffa,IDNUM
  4281.  move.w #19,Samplenum
  4282.  clr.b notifplaying
  4283.  move.w #0,Noisex
  4284.  move.w #0,Noisez
  4285.  move.w #60,Noisevol
  4286.  jsr MakeSomeNoise
  4287.  
  4288.  movem.l (a7)+,d0-d7/a0-a6
  4289.  
  4290. .notbeenshot
  4291.  move.b #0,damagetaken(a0)
  4292.  move.b #10,numlives(a0)
  4293.  
  4294.  move.w p1_angpos,Facing(a0)
  4295.  move.b PLR1_StoodInTop,ObjInTop(a0)
  4296.  
  4297.  move.w (a1),12(a0)
  4298.  move.w (a1),d2
  4299.  move.l #ZoneBrightTable,a1
  4300.  move.l (a1,d2.w*4),d2
  4301.  tst.b PLR1_StoodInTop
  4302.  bne.s .okinbott
  4303.  swap d2
  4304. .okinbott:
  4305.  
  4306.  move.w d2,2(a0)
  4307.  
  4308.  
  4309.  move.l p1_yoff,d0
  4310.  move.l p1_height,d1
  4311.  asr.l #1,d1
  4312.  add.l d1,d0
  4313.  asr.l #7,d0
  4314.  move.w d0,4(a0)
  4315.  
  4316. ***********************************
  4317.  
  4318.  move.l PLR2_Obj,a0 
  4319.  move.b #5,16(a0)
  4320.  
  4321.  move.w p2_angpos,d0
  4322.  and.w #8190,d0
  4323.  move.w d0,Facing(a0)
  4324. ; 
  4325. ; jsr ViewpointToDraw
  4326. ; asl.w #2,d0
  4327. ; moveq #0,d1
  4328. ; move.b p2_bobble,d1
  4329. ; not.b d1
  4330. ; lsr.b #3,d1
  4331. ; and.b #$3,d1
  4332. ; add.w d1,d0
  4333. ; move.w d0,10(a0)
  4334. ; move.w #10,8(a0)
  4335. ; 
  4336.  
  4337.  move.l ObjectPoints,a1
  4338.  move.l #ObjRotated,a2
  4339.  move.w (a0),d0
  4340.  move.l PLR2_xoff,(a1,d0.w*8)
  4341.  move.l PLR2_zoff,4(a1,d0.w*8)
  4342.  move.l PLR2_Roompt,a1
  4343.  
  4344.  moveq #0,d2
  4345.  move.b damagetaken(a0),d2
  4346.  beq .notbeenshot2
  4347.  move.w ImpactX(a0),d3
  4348.  add.w d3,PLR2s_xspdval
  4349.  move.w ImpactZ(a0),d3
  4350.  add.w d3,PLR2s_zspdval
  4351.  move.w ImpactY(a0),d3
  4352.  ext.l d3
  4353.  asl.l #8,d3
  4354.  add.l d3,PLR2s_yvel
  4355.  
  4356.  move.w #0,ImpactX(a0)
  4357.  move.w #0,ImpactY(a0)
  4358.  move.w #0,ImpactZ(a0)
  4359.  
  4360.  sub.w d2,PLAYERTWOHEALTH
  4361. .notbeenshot2
  4362.  move.b #0,damagetaken(a0)
  4363.  move.b #10,numlives(a0)
  4364.  
  4365.  move.b PLR2_StoodInTop,ObjInTop(a0)
  4366.  
  4367.  move.w (a1),12(a0)
  4368.  move.w (a1),d2
  4369.  move.l #ZoneBrightTable,a1
  4370.  move.l (a1,d2.w*4),d2
  4371.  tst.b PLR2_StoodInTop
  4372.  bne.s .okinbott2
  4373.  swap d2
  4374. .okinbott2:
  4375.  
  4376.  move.w d2,2(a0)
  4377.  
  4378.  move.l p2_yoff,d0
  4379.  move.l p2_height,d1
  4380.  asr.l #1,d1
  4381.  add.l d1,d0
  4382.  asr.l #7,d0
  4383.  move.w d0,4(a0)
  4384.  
  4385.  jsr ViewpointToDraw
  4386.  add.l d0,d0
  4387.  
  4388.  move.l LINKFILE,a6
  4389.  add.l #PLR2ALIEN,a6
  4390.  move.w (a6),d7
  4391.  move.w d7,d1
  4392.  
  4393.  move.l LINKFILE,a6
  4394.  add.l #AlienStats,a6
  4395.  muls #AlienStatLen,d1
  4396.  add.l d1,a6
  4397.  move.b A_GFXType+1(a6),VECOBJ
  4398.  cmp.w #1,A_GFXType(a6)
  4399.  bne.s .NOSIDES2
  4400.  
  4401.  moveq #0,d0
  4402.  
  4403. .NOSIDES2:
  4404.  
  4405.  move.l LINKFILE,a6
  4406.  
  4407.  add.l #AlienAnimData,a6
  4408.  
  4409.  move.w d7,d1
  4410.  muls #A_AnimLen,d1
  4411.  add.l d1,a6
  4412.  
  4413. ; move.l ANIMPOINTER,a6
  4414.  
  4415.  muls #A_OptLen,d0
  4416.  add.w d0,a6
  4417.  
  4418.  move.w SecTimer(a0),d1
  4419.  move.w d1,d2
  4420.  muls #A_FrameLen,d1
  4421.  
  4422.  addq #1,d2
  4423.  
  4424.  move.w d2,d3
  4425.  muls #A_FrameLen,d3
  4426.  tst.b (a6,d3.w)
  4427.  bge.s .noendanim
  4428.  move.w #0,d2
  4429. .noendanim
  4430.  move.w d2,SecTimer(a0)
  4431.  
  4432.  move.w d2,d1
  4433.  
  4434.  muls #A_FrameLen,d1
  4435.  
  4436.  move.l #0,8(a0)
  4437.  move.b (a6,d1.w),9(a0)
  4438.  move.b 1(a6,d1.w),d0
  4439.  ext.w d0
  4440.  bgt.s .noflip
  4441.  move.b #128,10(a0)
  4442.  neg.w d0
  4443. .noflip:
  4444.  sub.w #1,d0
  4445.  move.b d0,11(a0)
  4446.  
  4447.  move.w #-1,6(a0)
  4448.  cmp.b #1,VECOBJ
  4449.  beq.s .nosize
  4450.  bgt.s .setlight
  4451.  move.w 2(a6,d1.w),6(a0)
  4452.  bra.s .ddone
  4453.  
  4454. .nosize
  4455.  
  4456. ; move.l #$00090001,8(a0)
  4457.  
  4458.  bra.s .ddone
  4459.  
  4460. .setlight:
  4461.  move.w 2(a6,d1.w),6(a0)
  4462.  
  4463.  move.b VECOBJ,d1
  4464.  or.b d1,10(a0)
  4465.  
  4466. .ddone:
  4467.  
  4468.  
  4469. **********************************
  4470.  
  4471.  move.l PLR1_Obj,a0
  4472.  
  4473.  ifeq CHEESEY
  4474.  
  4475.  tst.w PLAYERONEHEALTH
  4476.  bgt.s .notdead
  4477.  
  4478.  move.w #-1,12+128(a0)
  4479.  rts
  4480.  
  4481. .notdead: 
  4482.  
  4483.  move.l PLR1_Roompt,a1
  4484.  
  4485.  move.w Facing(a0),d0
  4486.  add.w #4096,d0
  4487.  and.w #8190,d0
  4488.  move.w d0,Facing+128(a0)
  4489.  
  4490.  move.w (a1),12+128(a0)
  4491.  move.w (a1),GraphicRoom+128(a0)
  4492.  
  4493.  moveq #0,d0
  4494.  move.b p1_gunselected,d0
  4495.  
  4496.  move.l LINKFILE,a1
  4497.  add.l #GunObjects,a1
  4498.  move.w (a1,d0.w*2),d0
  4499.  
  4500.  move.b d0,TypeOfThing+128(a0)
  4501.  move.b #1,128+16(a0)
  4502.  
  4503.  move.w (a0),d0
  4504.  move.w 128(a0),d1
  4505.  move.l ObjectPoints,a1
  4506.  move.l (a1,d0.w*8),(a1,d1.w*8)
  4507.  move.l 4(a1,d0.w*8),4(a1,d1.w*8)
  4508.  
  4509.  st WhichAnim+128(a0)
  4510.  
  4511.  move.l p1_yoff,d0
  4512.  move.l p1_height,d1
  4513.  asr.l #2,d1
  4514.  add.l #10*128,d1
  4515.  add.l d1,d0
  4516.  asr.l #7,d0
  4517.  move.w d0,4+128(a0)
  4518.  move.l PLR1_BOBBLEY,d1
  4519.  asr.l #8,d1
  4520.  move.l d1,d0
  4521.  asr.l #1,d0
  4522.  add.l d0,d1
  4523.  add.w d1,4+128(a0)
  4524.  
  4525.  move.b ObjInTop(a0),ObjInTop+128(a0)
  4526.  
  4527.  endc
  4528.  
  4529.  ifne CHEESEY
  4530.  move.w #-1,12+128(a0)
  4531.  endc
  4532.  
  4533.  rts
  4534.  
  4535. ***************************************************
  4536. **************************************************
  4537.  
  4538. USEPLR2:
  4539.  
  4540. ***********************************
  4541.  
  4542.  move.l PLR2_Obj,a0 
  4543.  move.b #5,16(a0)
  4544.  move.l ObjectPoints,a1
  4545.  move.l #ObjRotated,a2
  4546.  move.w (a0),d0
  4547.  move.l PLR2_xoff,(a1,d0.w*8)
  4548.  move.l PLR2_zoff,4(a1,d0.w*8)
  4549.  move.l PLR2_Roompt,a1
  4550.  
  4551.  moveq #0,d2
  4552.  move.b damagetaken(a0),d2
  4553.  beq .notbeenshot
  4554.  
  4555.  moveq #0,d4
  4556.  move.w ImpactX(a0),d3
  4557.  beq.s .notwist
  4558.  move.w d2,d4
  4559. .notwist:
  4560.  add.w d3,PLR2s_xspdval
  4561.  move.w ImpactZ(a0),d3
  4562.  beq.s .notwist2
  4563.  move.w d2,d4
  4564. .notwist2:
  4565.  add.w d3,PLR2s_zspdval
  4566.  
  4567.  jsr GetRand
  4568.  muls d4,d0
  4569.  asr.l #8,d0
  4570.  asr.l #4,d0
  4571.  add.w d0,PLR2s_angspd
  4572.  
  4573.  move.l #7*2116,hitcol
  4574.  sub.w d2,PLAYERTWOHEALTH
  4575.  movem.l d0-d7/a0-a6,-(a7)
  4576.  move.w #19,Samplenum
  4577.  clr.b notifplaying
  4578.  move.w #$fffa,IDNUM
  4579.  move.w #0,Noisex
  4580.  move.w #0,Noisez
  4581.  move.w #60,Noisevol
  4582.  jsr MakeSomeNoise
  4583.  
  4584.  movem.l (a7)+,d0-d7/a0-a6
  4585.  
  4586. .notbeenshot
  4587.  move.b #0,damagetaken(a0)
  4588.  move.b #10,numlives(a0)
  4589.  
  4590.  move.w p2_angpos,Facing(a0)
  4591.  move.b PLR2_StoodInTop,ObjInTop(a0)
  4592.  
  4593.  move.w (a1),12(a0)
  4594.  move.w (a1),d2
  4595.  move.l #ZoneBrightTable,a1
  4596.  move.l (a1,d2.w*4),d2
  4597.  tst.b PLR2_StoodInTop
  4598.  bne.s .okinbott
  4599.  swap d2
  4600. .okinbott:
  4601.  
  4602.  move.w d2,2(a0)
  4603.  
  4604.  move.l PLR2_yoff,d0
  4605.  move.l p2_height,d1
  4606.  asr.l #1,d1
  4607.  add.l d1,d0
  4608.  asr.l #7,d0
  4609.  move.w d0,4(a0)
  4610.  
  4611. ***********************************
  4612.  
  4613.  move.l PLR1_Obj,a0 
  4614.  move.b #4,16(a0)
  4615.  
  4616.  move.w PLR1_angpos,d0
  4617.  and.w #8190,d0
  4618.  move.w d0,Facing(a0)
  4619. ; 
  4620. ; jsr ViewpointToDraw
  4621. ; asl.w #2,d0
  4622. ; moveq #0,d1
  4623. ; move.b p2_bobble,d1
  4624. ; not.b d1
  4625. ; lsr.b #3,d1
  4626. ; and.b #$3,d1
  4627. ; add.w d1,d0
  4628. ; move.w d0,10(a0)
  4629. ; move.w #10,8(a0)
  4630. ; 
  4631.  
  4632.  move.l ObjectPoints,a1
  4633.  move.l #ObjRotated,a2
  4634.  move.w (a0),d0
  4635.  move.l PLR1_xoff,(a1,d0.w*8)
  4636.  move.l PLR1_zoff,4(a1,d0.w*8)
  4637.  move.l PLR1_Roompt,a1
  4638.  
  4639.  moveq #0,d2
  4640.  move.b damagetaken(a0),d2
  4641.  beq .notbeenshot2
  4642.  
  4643.  move.w ImpactX(a0),d3
  4644.  add.w d3,PLR1s_xspdval
  4645.  move.w ImpactZ(a0),d3
  4646.  add.w d3,PLR1s_zspdval
  4647.  
  4648.  sub.w d2,PLAYERONEHEALTH
  4649. .notbeenshot2
  4650.  move.b #0,damagetaken(a0)
  4651.  move.b #10,numlives(a0)
  4652.  
  4653.  move.b PLR1_StoodInTop,ObjInTop(a0)
  4654.  
  4655.  move.w (a1),12(a0)
  4656.  move.w (a1),d2
  4657.  move.l #ZoneBrightTable,a1
  4658.  move.l (a1,d2.w*4),d2
  4659.  tst.b PLR1_StoodInTop
  4660.  bne.s .okinbott2
  4661.  swap d2
  4662. .okinbott2:
  4663.  
  4664.  move.w d2,2(a0)
  4665.  
  4666.  move.l p1_yoff,d0
  4667.  move.l p1_height,d1
  4668.  asr.l #1,d1
  4669.  add.l d1,d0
  4670.  asr.l #7,d0
  4671.  move.w d0,4(a0)
  4672.  
  4673.  jsr ViewpointToDraw
  4674.  add.l d0,d0
  4675.  
  4676.  move.l LINKFILE,a6
  4677.  add.l #PLR1ALIEN,a6
  4678.  move.w (a6),d7
  4679.  move.w d7,d1
  4680.  
  4681.  move.l LINKFILE,a6
  4682.  add.l #AlienStats,a6
  4683.  muls #AlienStatLen,d1
  4684.  add.l d1,a6
  4685.  move.b A_GFXType+1(a6),VECOBJ
  4686.  cmp.w #1,A_GFXType(a6)
  4687.  bne.s .NOSIDES2
  4688.  
  4689.  moveq #0,d0
  4690.  
  4691. .NOSIDES2:
  4692.  
  4693.  move.l LINKFILE,a6
  4694.  
  4695.  add.l #AlienAnimData,a6
  4696.  
  4697.  move.w d7,d1
  4698.  muls #A_AnimLen,d1
  4699.  add.l d1,a6
  4700.  
  4701. ; move.l ANIMPOINTER,a6
  4702.  
  4703.  muls #A_OptLen,d0
  4704.  add.w d0,a6
  4705.  
  4706.  move.w SecTimer(a0),d1
  4707.  move.w d1,d2
  4708.  muls #A_FrameLen,d1
  4709.  
  4710.  addq #1,d2
  4711.  
  4712.  move.w d2,d3
  4713.  muls #A_FrameLen,d3
  4714.  tst.b (a6,d3.w)
  4715.  bge.s .noendanim
  4716.  move.w #0,d2
  4717. .noendanim
  4718.  move.w d2,SecTimer(a0)
  4719.  
  4720.  move.w d2,d1
  4721.  
  4722.  muls #A_FrameLen,d1
  4723.  
  4724.  move.l #0,8(a0)
  4725.  move.b (a6,d1.w),9(a0)
  4726.  move.b 1(a6,d1.w),d0
  4727.  ext.w d0
  4728.  bgt.s .noflip
  4729.  move.b #128,10(a0)
  4730.  neg.w d0
  4731. .noflip:
  4732.  sub.w #1,d0
  4733.  move.b d0,11(a0)
  4734.  
  4735.  move.w #-1,6(a0)
  4736.  cmp.b #1,VECOBJ
  4737.  beq.s .nosize
  4738.  bgt.s .setlight
  4739.  move.w 2(a6,d1.w),6(a0)
  4740.  bra.s .ddone
  4741.  
  4742. .nosize
  4743.  
  4744. ; move.l #$00090001,8(a0)
  4745.  
  4746.  bra.s .ddone
  4747.  
  4748. .setlight:
  4749.  move.w 2(a6,d1.w),6(a0)
  4750.  
  4751.  move.b VECOBJ,d1
  4752.  or.b d1,10(a0)
  4753.  
  4754. .ddone:
  4755.  
  4756. **********************************
  4757.  
  4758.  move.l PLR2_Obj,a0
  4759.  
  4760.  ifeq CHEESEY
  4761.  
  4762.  tst.w PLAYERTWOHEALTH
  4763.  bgt.s .notdead
  4764.  
  4765.  move.w #-1,12+64(a0)
  4766.  rts
  4767.  
  4768. .notdead: 
  4769.  move.l PLR2_Roompt,a1
  4770.  
  4771.  move.w Facing(a0),d0
  4772.  add.w #4096,d0
  4773.  and.w #8190,d0
  4774.  move.w d0,Facing+64(a0)
  4775.  
  4776.  move.w (a1),12+64(a0)
  4777.  move.w (a1),GraphicRoom+64(a0)
  4778.  
  4779.  moveq #0,d0
  4780.  move.b p2_gunselected,d0
  4781.  
  4782.  move.l LINKFILE,a1
  4783.  add.l #GunObjects,a1
  4784.  move.w (a1,d0.w*2),d0
  4785.  
  4786.  move.b d0,TypeOfThing+64(a0)
  4787.  move.b #1,64+16(a0)
  4788.  
  4789.  move.w (a0),d0
  4790.  move.w 64(a0),d1
  4791.  move.l ObjectPoints,a1
  4792.  move.l (a1,d0.w*8),(a1,d1.w*8) 
  4793.  move.l 4(a1,d0.w*8),4(a1,d1.w*8) 
  4794.  
  4795.  st WhichAnim+64(a0)
  4796.  
  4797.  move.l p2_yoff,d0
  4798.  move.l p2_height,d1
  4799.  asr.l #2,d1
  4800.  add.l #10*128,d1
  4801.  add.l d1,d0
  4802.  asr.l #7,d0
  4803.  move.w d0,4+64(a0)
  4804.  move.l PLR2_BOBBLEY,d1
  4805.  asr.l #8,d1
  4806.  move.l d1,d0
  4807.  asr.l #1,d0
  4808.  add.l d0,d1
  4809.  add.w d1,4+64(a0)
  4810.  
  4811.  move.b ObjInTop(a0),ObjInTop+64(a0)
  4812.  
  4813.  endc
  4814.  
  4815.  ifne CHEESEY
  4816.  
  4817.  move.w #-1,12+64(a0)
  4818.  endc
  4819.  
  4820.  rts
  4821.  
  4822.  
  4823.  
  4824. GunSelected: dc.b 0
  4825.  even
  4826.  
  4827.  
  4828. GunData: dc.l 0
  4829.  
  4830.  
  4831. protA: dc.w 0
  4832.  
  4833. Path:
  4834. ; incbin "testpath"
  4835. endpath:
  4836. pathpt: dc.l Path
  4837.  
  4838.  
  4839. PLR1KEYS: dc.b 0
  4840. PLR1PATH: dc.b 0
  4841. PLR1MOUSE: dc.b -1
  4842. PLR1JOY: dc.b 0
  4843. PLR2KEYS: dc.b 0
  4844. PLR2PATH: dc.b 0
  4845. PLR2MOUSE: dc.b -1
  4846. PLR2JOY: dc.b 0
  4847.  
  4848.  even
  4849.  
  4850. PLR1_bobble: dc.w 0
  4851. PLR2_bobble: dc.w 0
  4852. xwobble: dc.l 0
  4853. xwobxoff: dc.w 0
  4854.  
  4855. xwobzoff: dc.w 0
  4856.  
  4857. PLR1_Control:
  4858.  
  4859. ; Take a snapshot of everything.
  4860.  
  4861.  move.l PLR1_xoff,d2
  4862.  move.l d2,PLR1_oldxoff
  4863.  move.l d2,oldx
  4864.  move.l PLR1_zoff,d3
  4865.  move.l d3,PLR1_oldzoff
  4866.  move.l d3,oldz
  4867.  move.l p1_xoff,d0
  4868.  move.l d0,PLR1_xoff
  4869.  move.l d0,newx
  4870.  move.l p1_zoff,d1
  4871.  move.l d1,newz
  4872.  move.l d1,PLR1_zoff
  4873.  
  4874.  move.l p1_height,PLR1_height
  4875.  
  4876.  sub.l d2,d0
  4877.  sub.l d3,d1
  4878.  move.l d0,xdiff
  4879.  move.l d1,zdiff
  4880.  move.w p1_angpos,d0
  4881.  move.w d0,PLR1_angpos
  4882.  
  4883.  move.l #SineTable,a1
  4884.  move.w (a1,d0.w),PLR1_sinval
  4885.  add.w #2048,d0
  4886.  and.w #8190,d0
  4887.  move.w (a1,d0.w),PLR1_cosval
  4888.  
  4889.  move.l p1_yoff,d0
  4890.  move.w p1_bobble,d1
  4891.  move.w (a1,d1.w),d1
  4892.  move.w d1,d3
  4893.  ble.s .notnegative
  4894.  neg.w d1
  4895. .notnegative:
  4896.  add.w #16384,d1
  4897.  asr.w #4,d1
  4898.  
  4899.  tst.b PLR1_Ducked
  4900.  bne.s .notdouble
  4901.  tst.b PLR1_Squished
  4902.  bne.s .notdouble
  4903.  add.w d1,d1
  4904. .notdouble
  4905.  ext.l d1
  4906.  
  4907.  move.l d1,PLR1_BOBBLEY
  4908.  
  4909.  move.l PLR1_height,d4
  4910.  sub.l d1,d4
  4911.  add.l d1,d0
  4912.  
  4913.  cmp.b #'s',mors
  4914.  beq.s .otherwob
  4915.  asr.w #6,d3
  4916.  ext.l d3
  4917.  move.l d3,xwobble
  4918.  move.w PLR1_sinval,d1
  4919.  muls d3,d1
  4920.  move.w PLR1_cosval,d2
  4921.  muls d3,d2
  4922.  swap d1
  4923.  swap d2
  4924.  asr.w #7,d1
  4925.  move.w d1,xwobxoff
  4926.  asr.w #7,d2
  4927.  neg.w d2
  4928.  move.w d2,xwobzoff
  4929. .otherwob
  4930.  
  4931.  move.l d0,PLR1_yoff
  4932.  move.l d0,newy
  4933.  move.l d0,oldy
  4934.  
  4935.  move.l d4,thingheight
  4936.  move.l #40*256,StepUpVal
  4937.  tst.b PLR1_Squished
  4938.  beq.s .smallstep
  4939.  tst.b PLR1_Ducked
  4940.  beq.s .okbigstep
  4941. .smallstep
  4942.  move.l #10*256,StepUpVal
  4943. .okbigstep:
  4944.  
  4945.  move.l #$1000000,StepDownVal
  4946.  
  4947.  move.l PLR1_Roompt,a0
  4948.  move.w ToTelZone(a0),d0
  4949.  blt .noteleport
  4950.  
  4951.  move.w ToTelX(a0),newx
  4952.  move.w ToTelZ(a0),newz
  4953.  move.w #-1,CollId
  4954.  move.l #%111111111111111111,CollideFlags
  4955.  jsr Collision
  4956.  tst.b hitwall
  4957.  beq.s .teleport
  4958.  
  4959.  move.w PLR1_xoff,newx
  4960.  move.w PLR1_zoff,newz
  4961.  bra .noteleport
  4962.  
  4963. .teleport:
  4964.  
  4965.  st PLR1_TELEPORTED
  4966.  
  4967.  move.l PLR1_Roompt,a0
  4968.  move.w ToTelZone(a0),d0
  4969.  move.w ToTelX(a0),PLR1_xoff
  4970.  move.w ToTelZ(a0),PLR1_zoff
  4971.  move.l PLR1_yoff,d1
  4972.  sub.l ToZoneFloor(a0),d1
  4973.  move.l ZoneAdds,a0
  4974.  move.l (a0,d0.w*4),a0
  4975.  add.l LEVELDATA,a0
  4976.  move.l a0,PLR1_Roompt
  4977.  add.l ToZoneFloor(a0),d1
  4978.  move.l d1,PLR1s_yoff
  4979.  move.l d1,PLR1_yoff
  4980.  move.l d1,PLR1s_tyoff
  4981.  move.l PLR1_xoff,PLR1s_xoff
  4982.  move.l PLR1_zoff,PLR1s_zoff
  4983.  
  4984.  SAVEREGS
  4985.  move.w #0,Noisex
  4986.  move.w #0,Noisez
  4987.  move.w #26,Samplenum
  4988.  move.w #100,Noisevol
  4989.  move.w #$fff9,IDNUM
  4990.  jsr MakeSomeNoise
  4991.  GETREGS
  4992.  
  4993.  bra .cantmove
  4994.  
  4995. .noteleport:
  4996.  
  4997.  move.l PLR1_Roompt,objroom
  4998.  move.w #%100000000,wallflags
  4999.  move.b PLR1_StoodInTop,StoodInTop
  5000.  
  5001.  move.l #%1011111110111000011,CollideFlags
  5002.  move.w #-1,CollId
  5003.  
  5004.  jsr Collision
  5005.  tst.b hitwall
  5006.  beq.s .nothitanything
  5007.  move.w oldx,PLR1_xoff
  5008.  move.w oldz,PLR1_zoff
  5009.  move.l PLR1_xoff,PLR1s_xoff
  5010.  move.l PLR1_zoff,PLR1s_zoff
  5011.  bra .cantmove
  5012. .nothitanything:
  5013.  
  5014.  move.w #40,extlen
  5015.  move.b #0,awayfromwall
  5016.  
  5017.  clr.b exitfirst
  5018.  clr.b wallbounce
  5019.  bsr MoveObject
  5020.  move.b StoodInTop,PLR1_StoodInTop
  5021.  move.l objroom,PLR1_Roompt
  5022.  move.w newx,PLR1_xoff
  5023.  move.w newz,PLR1_zoff
  5024.  move.l PLR1_xoff,PLR1s_xoff
  5025.  move.l PLR1_zoff,PLR1s_zoff
  5026.  
  5027. .cantmove:
  5028.  
  5029.  move.l PLR1_Roompt,a0
  5030.  
  5031.  move.l ToZoneFloor(a0),d0
  5032.  tst.b PLR1_StoodInTop
  5033.  beq.s notintop
  5034.  move.l ToUpperFloor(a0),d0
  5035. notintop:
  5036.  
  5037.  adda.w #ToZonePts,a0
  5038.  sub.l PLR1_height,d0
  5039.  move.l d0,PLR1s_tyoff
  5040.  move.w p1_angpos,tmpangpos
  5041.  
  5042. ; move.l (a0),a0        ; jump to viewpoint list
  5043.  * A0 is pointing at a pointer to list of points to rotate
  5044.  move.w (a0)+,d1
  5045.  ext.l d1
  5046.  add.l PLR1_Roompt,d1
  5047.  move.l d1,PLR1_PointsToRotatePtr
  5048.  tst.b (a0)+
  5049.  sne.s DRAWNGRAPHTOP
  5050.  beq.s nobackgraphics
  5051.  cmp.b #'s',mors
  5052.  beq.s nobackgraphics
  5053.  move.l a0,-(a7)
  5054.  jsr putinbackdrop 
  5055.  move.l (a7)+,a0
  5056. nobackgraphics:
  5057.  
  5058.  move.b (a0)+,PLR1_Echo
  5059.  
  5060.  adda.w #10,a0
  5061.  move.l a0,PLR1_ListOfGraphRooms
  5062.  
  5063. *************************************************
  5064.  rts
  5065.  
  5066. DRAWNGRAPHTOP
  5067.  dc.w 0 
  5068. tstzone: dc.l 0
  5069. CollId: dc.w 0
  5070.  
  5071. PLR2_Control:
  5072.  
  5073. ; Take a snapshot of everything.
  5074.  
  5075.  move.l PLR2_xoff,d2
  5076.  move.l d2,PLR2_oldxoff
  5077.  move.l d2,oldx
  5078.  move.l PLR2_zoff,d3
  5079.  move.l d3,PLR2_oldzoff
  5080.  move.l d3,oldz
  5081.  move.l p2_xoff,d0
  5082.  move.l d0,PLR2_xoff
  5083.  move.l d0,newx
  5084.  move.l p2_zoff,d1
  5085.  move.l d1,newz
  5086.  move.l d1,PLR2_zoff
  5087.  
  5088.  move.l p2_height,PLR2_height
  5089.  
  5090.  sub.l d2,d0
  5091.  sub.l d3,d1
  5092.  move.l d0,xdiff
  5093.  move.l d1,zdiff
  5094.  move.w p2_angpos,d0
  5095.  move.w d0,PLR2_angpos
  5096.  
  5097.  move.l #SineTable,a1
  5098.  move.w (a1,d0.w),PLR2_sinval
  5099.  add.w #2048,d0
  5100.  and.w #8190,d0
  5101.  move.w (a1,d0.w),PLR2_cosval
  5102.  
  5103.  move.l p2_yoff,d0
  5104.  move.w p2_bobble,d1
  5105.  move.w (a1,d1.w),d1
  5106.  move.w d1,d3
  5107.  ble.s .notnegative
  5108.  neg.w d1
  5109. .notnegative:
  5110.  add.w #16384,d1
  5111.  asr.w #4,d1
  5112.  
  5113.  tst.b PLR2_Ducked
  5114.  bne.s .notdouble
  5115.  tst.b PLR2_Squished
  5116.  bne.s .notdouble
  5117.  add.w d1,d1
  5118. .notdouble
  5119.  ext.l d1
  5120.  
  5121.  move.l d1,PLR2_BOBBLEY
  5122.  
  5123.  move.l PLR2_height,d4
  5124.  sub.l d1,d4
  5125.  add.l d1,d0
  5126.  
  5127.  cmp.b #'s',mors
  5128.  bne.s .otherwob
  5129.  asr.w #6,d3
  5130.  ext.l d3
  5131.  move.l d3,xwobble
  5132.  move.w PLR2_sinval,d1
  5133.  muls d3,d1
  5134.  move.w PLR2_cosval,d2
  5135.  muls d3,d2
  5136.  swap d1
  5137.  swap d2
  5138.  asr.w #7,d1
  5139.  move.w d1,xwobxoff
  5140.  asr.w #7,d2
  5141.  neg.w d2
  5142.  move.w d2,xwobzoff
  5143. .otherwob
  5144.  
  5145.  move.l d0,PLR2_yoff
  5146.  move.l d0,newy
  5147.  move.l d0,oldy
  5148.  
  5149.  move.l d4,thingheight
  5150.  move.l #40*256,StepUpVal
  5151.  tst.b PLR2_Squished
  5152.  bne.s .smallstep
  5153.  tst.b PLR2_Ducked
  5154.  beq.s .okbigstep
  5155. .smallstep:
  5156.  move.l #10*256,StepUpVal
  5157. .okbigstep:
  5158.  
  5159.  move.l #$1000000,StepDownVal
  5160.  
  5161.  move.l PLR2_Roompt,a0
  5162.  move.w ToTelZone(a0),d0
  5163.  blt .noteleport
  5164.  
  5165.  move.w ToTelX(a0),newx
  5166.  move.w ToTelZ(a0),newz
  5167.  move.w #-1,CollId
  5168.  move.l #%111111111111111111,CollideFlags
  5169.  jsr Collision
  5170.  tst.b hitwall
  5171.  beq.s .teleport
  5172.  
  5173.  move.w PLR2_xoff,newx
  5174.  move.w PLR2_zoff,newz
  5175.  bra .noteleport
  5176.  
  5177. .teleport:
  5178.  
  5179.  st PLR2_TELEPORTED
  5180.  
  5181.  move.l PLR2_Roompt,a0
  5182.  move.w ToTelZone(a0),d0
  5183.  move.w ToTelX(a0),PLR2_xoff
  5184.  move.w ToTelZ(a0),PLR2_zoff
  5185.  move.l PLR2_yoff,d1
  5186.  sub.l ToZoneFloor(a0),d1
  5187.  move.l ZoneAdds,a0
  5188.  move.l (a0,d0.w*4),a0
  5189.  add.l LEVELDATA,a0
  5190.  move.l a0,PLR2_Roompt
  5191.  add.l ToZoneFloor(a0),d1
  5192.  move.l d1,PLR2s_yoff
  5193.  move.l d1,PLR2_yoff
  5194.  move.l d1,PLR2s_tyoff
  5195.  move.l PLR2_xoff,PLR2s_xoff
  5196.  move.l PLR2_zoff,PLR2s_zoff
  5197.  
  5198.  SAVEREGS
  5199.  move.w #0,Noisex
  5200.  move.w #0,Noisez
  5201.  move.w #26,Samplenum
  5202.  move.w #100,Noisevol
  5203.  move.w #$fff9,IDNUM
  5204.  jsr MakeSomeNoise
  5205.  GETREGS
  5206.  
  5207.  bra .cantmove
  5208.  
  5209. .noteleport:
  5210.  
  5211.  move.l PLR2_Roompt,objroom
  5212.  move.w #%100000000000,wallflags
  5213.  move.b PLR2_StoodInTop,StoodInTop
  5214.  
  5215.  move.l #%1011111010111100011,CollideFlags
  5216.  move.w #-1,CollId
  5217.  
  5218.  jsr Collision
  5219.  tst.b hitwall
  5220.  beq.s .nothitanything
  5221.  move.w oldx,PLR2_xoff
  5222.  move.w oldz,PLR2_zoff
  5223.  move.l PLR2_xoff,PLR2s_xoff
  5224.  move.l PLR2_zoff,PLR2s_zoff
  5225.  bra .cantmove
  5226. .nothitanything:
  5227.  
  5228.  move.w #40,extlen
  5229.  move.b #0,awayfromwall
  5230.  
  5231.  clr.b exitfirst
  5232.  clr.b wallbounce
  5233.  bsr MoveObject
  5234.  move.b StoodInTop,PLR2_StoodInTop
  5235.  move.l objroom,PLR2_Roompt
  5236.  move.w newx,PLR2_xoff
  5237.  move.w newz,PLR2_zoff
  5238.  move.l PLR2_xoff,PLR2s_xoff
  5239.  move.l PLR2_zoff,PLR2s_zoff
  5240.  
  5241. .cantmove
  5242.  
  5243.  move.l PLR2_Roompt,a0
  5244.  
  5245.  move.l ToZoneFloor(a0),d0
  5246.  tst.b PLR2_StoodInTop
  5247.  beq.s .notintop
  5248.  move.l ToUpperFloor(a0),d0
  5249. .notintop:
  5250.  
  5251.  adda.w #ToZonePts,a0
  5252.  sub.l PLR2_height,d0
  5253.  move.l d0,PLR2s_tyoff
  5254.  move.w p2_angpos,tmpangpos
  5255.  
  5256. ; move.l (a0),a0        ; jump to viewpoint list
  5257.  * A0 is pointing at a pointer to list of points to rotate
  5258.  move.w (a0)+,d1
  5259.  ext.l d1
  5260.  add.l PLR2_Roompt,d1
  5261.  move.l d1,PLR2_PointsToRotatePtr
  5262.  tst.b (a0)+
  5263.  sne.s DRAWNGRAPHTOP
  5264.  beq.s .nobackgraphics
  5265.  cmp.b #'s',mors
  5266.  bne.s .nobackgraphics
  5267.  move.l a0,-(a7)
  5268.  jsr putinbackdrop 
  5269.  move.l (a7)+,a0
  5270. .nobackgraphics:
  5271.  
  5272.  move.b (a0)+,PLR2_Echo
  5273.  
  5274.  adda.w #10,a0
  5275.  move.l a0,PLR2_ListOfGraphRooms
  5276.  
  5277. *****************************************************
  5278.  rts
  5279.  
  5280.  
  5281. KeyMap: ds.b 256
  5282.  
  5283. fillscrnwater:
  5284.  dc.w 0
  5285. DONTDOGUN:
  5286.  dc.w 0
  5287.  
  5288. ;temptemp: ds.l 200
  5289. ;temptempptr: dc.l 0
  5290.  
  5291. DrawDisplay:
  5292.  
  5293. ; move.l #temptemp,temptempptr
  5294.  
  5295.  clr.b fillscrnwater
  5296.  
  5297.  move.l #SineTable,a0
  5298.  move.w angpos,d0
  5299.  move.w (a0,d0.w),d6
  5300.  adda.w #2048,a0
  5301.  move.w (a0,d0.w),d7
  5302.  move.w d6,sinval
  5303.  move.w d7,cosval
  5304.  
  5305.  move.l yoff,d0
  5306.  asr.l #8,d0
  5307.  move.w d0,d1
  5308.  add.w #256-32,d1
  5309.  and.w #255,d1
  5310.  move.w d1,wallyoff
  5311.  move.l yoff,d0
  5312.  asr.l #6,d0
  5313.  move.w d0,flooryoff
  5314.  
  5315.  move.w xoff,d6
  5316.  move.w d6,d3
  5317.  asr.w #1,d3
  5318.  add.w d3,d6
  5319.  asr.w #1,d6
  5320.  move.w d6,xoff34
  5321.  
  5322.  move.w zoff,d6
  5323.  move.w d6,d3
  5324.  asr.w #1,d3
  5325.  add.w d3,d6
  5326.  asr.w #1,d6
  5327.  move.w d6,zoff34
  5328.  
  5329.  bsr RotateLevelPts
  5330.  bsr RotateObjectPts
  5331.  bsr CalcPLR1InLine
  5332.  
  5333.  cmp.b #'n',mors
  5334.  bne.s doplr2too
  5335.  move.l PLR2_Obj,a0
  5336.  move.w #-1,12(a0)
  5337.  move.w #-1,GraphicRoom(a0)
  5338.  bra noplr2either
  5339.  
  5340. doplr2too:
  5341.  bsr CalcPLR2InLine
  5342. noplr2either:
  5343.  
  5344.  move.l endoflist,a0
  5345. ; move.w #-1,(a0)
  5346.  
  5347. ; move.l #FinalOrder,a0
  5348.  
  5349.  
  5350. subroomloop:
  5351. ; move.w (a0)+,d7
  5352.  move.w -(a0),d7
  5353.  blt jumpoutofrooms
  5354.  
  5355. ; bsr setlrclip
  5356. ; move.w leftclip,d0
  5357. ; cmp.w rightclip,d0
  5358. ; bge subroomloop
  5359.  move.l a0,-(a7)
  5360.  
  5361.  move.l ZoneAdds,a0
  5362.  move.l (a0,d7.w*4),a0
  5363.  add.l LEVELDATA,a0
  5364.  move.l ToZoneRoof(a0),SplitHeight
  5365.  move.l a0,ROOMBACK
  5366.  
  5367.  move.l ZoneGraphAdds,a0
  5368.  move.l 4(a0,d7.w*8),a2
  5369.  move.l (a0,d7.w*8),a0
  5370.  
  5371.  add.l LEVELGRAPHICS,a0
  5372.  add.l LEVELGRAPHICS,a2
  5373.  move.l a2,ThisRoomToDraw+4
  5374.  move.l a0,ThisRoomToDraw
  5375.  
  5376.  move.l ListOfGraphRooms,a1
  5377.  
  5378.  
  5379.  
  5380. finditit:
  5381.  tst.w (a1)
  5382.  blt nomoretodoatall
  5383.  cmp.w (a1),d7
  5384.  beq outoffind
  5385.  adda.w #8,a1
  5386.  bra finditit
  5387.  
  5388. outoffind:
  5389.  
  5390.  move.l a1,-(a7)
  5391.  
  5392.  
  5393.  move.w #0,leftclip
  5394.  move.w RIGHTX,rightclip
  5395.  moveq #0,d7
  5396.  move.w 2(a1),d7
  5397.  blt.s outofrcliplop
  5398.  move.l LEVELCLIPS,a0
  5399.  lea (a0,d7.l*2),a0
  5400.  
  5401.  tst.w (a0)
  5402.  blt outoflcliplop
  5403.  
  5404.  bsr NEWsetlclip
  5405.  
  5406. intolcliplop:        ; clips
  5407.  tst.w (a0)
  5408.  blt outoflcliplop
  5409.  
  5410.  bsr NEWsetlclip 
  5411.  bra intolcliplop
  5412.  
  5413. outoflcliplop:
  5414.  
  5415.  addq #2,a0
  5416.  
  5417.  tst.w (a0)
  5418.  blt outofrcliplop
  5419.  
  5420.  bsr NEWsetrclip
  5421.  
  5422. intorcliplop:        ; clips
  5423.  tst.w (a0)
  5424.  blt outofrcliplop
  5425.  
  5426.  bsr NEWsetrclip 
  5427.  bra intorcliplop
  5428.  
  5429. outofrcliplop:
  5430.  
  5431.  
  5432.  move.w leftclip,d0
  5433.  ext.l d0
  5434.  move.l d0,leftclip-2
  5435.  
  5436.  cmp.w RIGHTX,d0
  5437.  bge dontbothercantseeit
  5438.  move.w rightclip,d1
  5439.  ext.l d1
  5440.  move.l d1,rightclip-2
  5441.  blt dontbothercantseeit
  5442.  cmp.w d1,d0
  5443.  bge dontbothercantseeit
  5444.  
  5445.  move.l yoff,d0
  5446.  cmp.l SplitHeight,d0
  5447.  blt botfirst
  5448.  
  5449.  move.l ThisRoomToDraw+4,a0
  5450.  cmp.l LEVELGRAPHICS,a0
  5451.  beq.s noupperroom
  5452.  st DOUPPER
  5453.  
  5454.  move.l ROOMBACK,a1
  5455.  move.l ToUpperRoof(a1),TOPOFROOM
  5456.  move.l ToUpperFloor(a1),BOTOFROOM
  5457.  
  5458.  move.l #CurrentPointBrights+4,PointBrightsPtr
  5459.  bsr dothisroom
  5460. noupperroom:
  5461.  move.l ThisRoomToDraw,a0
  5462.  clr.b DOUPPER
  5463.  move.l #CurrentPointBrights,PointBrightsPtr
  5464.  
  5465.  move.l ROOMBACK,a1
  5466.  move.l ToZoneRoof(a1),d0
  5467.  move.l d0,TOPOFROOM
  5468.  move.l ToZoneFloor(a1),d1
  5469.  move.l d1,BOTOFROOM
  5470.  
  5471.  move.l ToZoneWater(a1),d2
  5472.  cmp.l yoff,d2
  5473.  blt.s .abovefirst
  5474.  move.l d2,BEFOREWATTOP
  5475.  move.l d1,BEFOREWATBOT
  5476.  move.l d2,AFTERWATBOT
  5477.  move.l d0,AFTERWATTOP
  5478.  bra.s .belowfirst
  5479. .abovefirst:
  5480.  move.l d0,BEFOREWATTOP
  5481.  move.l d2,BEFOREWATBOT
  5482.  move.l d1,AFTERWATBOT
  5483.  move.l d2,AFTERWATTOP
  5484. .belowfirst:
  5485.  
  5486.  bsr dothisroom
  5487.  
  5488.  bra dontbothercantseeit
  5489. botfirst:
  5490.  
  5491.  move.l ThisRoomToDraw,a0
  5492.  clr.b DOUPPER
  5493.  move.l #CurrentPointBrights,PointBrightsPtr
  5494.  
  5495.  move.l ROOMBACK,a1
  5496.  move.l ToZoneRoof(a1),d0
  5497.  move.l d0,TOPOFROOM
  5498.  move.l ToZoneFloor(a1),d1
  5499.  move.l d1,BOTOFROOM
  5500.  
  5501.  move.l ToZoneWater(a1),d2
  5502.  cmp.l yoff,d2
  5503.  blt.s .abovefirst
  5504.  move.l d2,BEFOREWATTOP
  5505.  move.l d1,BEFOREWATBOT
  5506.  move.l d2,AFTERWATBOT
  5507.  move.l d0,AFTERWATTOP
  5508.  bra.s .belowfirst
  5509. .abovefirst:
  5510.  move.l d0,BEFOREWATTOP
  5511.  move.l d2,BEFOREWATBOT
  5512.  move.l d1,AFTERWATBOT
  5513.  move.l d2,AFTERWATTOP
  5514. .belowfirst:
  5515.  
  5516.  
  5517.  bsr dothisroom
  5518.  move.l ThisRoomToDraw+4,a0
  5519.  cmp.l LEVELGRAPHICS,a0
  5520.  beq.s noupperroom2
  5521.  move.l #CurrentPointBrights+4,PointBrightsPtr
  5522.  
  5523.  move.l ROOMBACK,a1
  5524.  move.l ToUpperRoof(a1),TOPOFROOM
  5525.  move.l ToUpperFloor(a1),BOTOFROOM
  5526.  
  5527.  st DOUPPER
  5528.  bsr dothisroom
  5529. noupperroom2:
  5530.  
  5531. dontbothercantseeit:
  5532. pastemp:
  5533.  
  5534.  move.l (a7)+,a1
  5535.  move.l ThisRoomToDraw,a0
  5536.  move.w (a0),d7
  5537.  
  5538.  adda.w #8,a1
  5539.  bra finditit
  5540.  
  5541. nomoretodoatall:
  5542.  
  5543.  move.l (a7)+,a0
  5544.  
  5545.  bra subroomloop
  5546.  
  5547. jumpoutofrooms:
  5548.  
  5549.  
  5550.  tst.b DONTDOGUN
  5551.  bne NOGUNLOOK
  5552.  
  5553.  cmp.b #'s',mors
  5554.  beq.s drawslavegun
  5555.  
  5556.  moveq #0,d0
  5557.  move.b PLR1_GunSelected,d0
  5558.  moveq #0,d1
  5559.  move.b PLR1_GunFrame,d1
  5560. ; bsr DRAWINGUN
  5561.  bra drawngun
  5562.  
  5563. drawslavegun
  5564.  moveq #0,d0
  5565.  move.b PLR2_GunSelected,d0
  5566.  moveq #0,d1
  5567.  move.b PLR2_GunFrame,d1
  5568. ; bsr DRAWINGUN
  5569.  
  5570. drawngun:
  5571.  
  5572. NOGUNLOOK:
  5573.  
  5574.  moveq #0,d1
  5575.  move.b PLR1_GunFrame,d1
  5576.  sub.w TempFrames,d1
  5577.  bgt.s .nn
  5578.  moveq #0,d1
  5579. .nn
  5580.  move.b d1,PLR1_GunFrame
  5581.  
  5582.  ble.s .donefire
  5583.  sub.b #1,PLR1_GunFrame
  5584. .donefire:
  5585.  
  5586.  moveq #0,d1
  5587.  move.b PLR2_GunFrame,d1
  5588.  sub.w TempFrames,d1
  5589.  bgt.s .nn2
  5590.  moveq #0,d1
  5591. .nn2
  5592.  move.b d2,PLR2_GunFrame
  5593.  
  5594.  ble.s .donefire2
  5595.  sub.b #1,PLR2_GunFrame
  5596. .donefire2:
  5597.  
  5598.  tst.b DOANYWATER
  5599.  beq.s nowaterfull
  5600.  
  5601.  move.w #231,d0
  5602.  move.l FASTBUFFER,a0
  5603.  tst.b fillscrnwater
  5604.  beq nowaterfull
  5605.  bgt oknothalf
  5606.  moveq #119,d0
  5607.  add.l #320*120*2,a0
  5608. oknothalf:
  5609.  
  5610.  bclr.b #1,$bfe001
  5611.  
  5612.  move.l TexturePal,a2
  5613.  add.l #256*40,a2
  5614.  moveq #0,d2
  5615.  
  5616.  tst.b FULLSCR
  5617.  bne.s DOALLSCREEN
  5618.  
  5619. DOSOMESCREEN:
  5620.  
  5621.  move.w #159,d0
  5622. .fw:
  5623.  move.w #191,d1
  5624. .fwa:
  5625.  move.b (a0),d2
  5626.  move.b (a2,d2.w),(a0)+
  5627.  dbra d1,.fwa
  5628.  add.w #(320-192),a0
  5629.  dbra d0,.fw
  5630.  rts
  5631.  
  5632. DOALLSCREEN:
  5633.  
  5634. fw:
  5635.  move.w #287,d1
  5636. fwa:
  5637.  move.b (a0),d2
  5638.  move.b (a2,d2.w),(a0)+
  5639.  dbra d1,fwa
  5640.  add.w #32,a0
  5641.  dbra d0,fw
  5642.  
  5643. ; move.l frompt,a0
  5644. ; add.l #104*4*60,a0
  5645. ; 
  5646. ; move.w #31,d0
  5647. ;fw:
  5648. ; move.w d5,d1
  5649. ; move.l a0,a1
  5650. ;fwd:
  5651. ;val SET 104*4*19
  5652. ; REPT 20
  5653. ; and.w #$ff,val(a1)
  5654. ;val SET val-104*4
  5655. ; ENDR
  5656. ; sub.l #104*4*20,a1
  5657. ; dbra d1,fwd
  5658. ; addq #4,a0
  5659. ; dbra d0,fw
  5660. ;
  5661. ; addq #4,a0
  5662. ;
  5663. ; move.w #31,d0
  5664. ;sw:
  5665. ; move.w d5,d1
  5666. ; move.l a0,a1
  5667. ;swd:
  5668. ;val SET 104*4*19
  5669. ; REPT 20
  5670. ; and.w #$ff,val(a1)
  5671. ;val SET val-104*4
  5672. ; ENDR
  5673. ; sub.l #104*4*20,a1
  5674. ; dbra d1,swd
  5675. ; addq #4,a0
  5676. ; dbra d0,sw
  5677. ;
  5678. ; addq #4,a0
  5679. ;
  5680. ; move.w #31,d0
  5681. ;tw:
  5682. ; move.w d5,d1
  5683. ; move.l a0,a1
  5684. ;twd:
  5685. ;val SET 104*4*19
  5686. ; REPT 20
  5687. ; and.w #$ff,val(a1)
  5688. ;val SET val-104*4
  5689. ; ENDR
  5690. ; sub.l #104*4*20,a1
  5691. ; dbra d1,twd
  5692. ; addq #4,a0
  5693. ; dbra d0,tw
  5694. ;
  5695.  rts
  5696.  
  5697. nowaterfull:
  5698.  bset.b #1,$bfe001
  5699.  rts
  5700.  
  5701. prot9: dc.w 0
  5702.  
  5703. ;TempBuffer: ds.l 100 
  5704.  
  5705. prot8: dc.w 0
  5706.  
  5707. ClipTable: ds.l 30
  5708. EndOfClipPt: dc.l 0
  5709. DOUPPER: dc.w 0
  5710.  
  5711. RealTable:
  5712.  dc.l prot1-78935450
  5713.  dc.l prot2-78935450
  5714.  dc.l prot3-78935450
  5715.  dc.l prot4-78935450
  5716.  dc.l prot5-78935450
  5717.  dc.l prot6-78935450
  5718.  dc.l prot7-78935450
  5719.  dc.l prot8-78935450
  5720.  dc.l prot9-78935450
  5721.  dc.l protA-78935450
  5722.  
  5723. dothisroom
  5724.  
  5725.  move.w (a0)+,d0
  5726.  move.w d0,currzone
  5727.  move.w d0,d1
  5728.  muls #40,d1
  5729.  add.l #BIGMAP,d1
  5730.  move.l d1,BIGPTR
  5731.  move.w d0,d1
  5732.  ext.l d1
  5733.  asl.w #2,d1
  5734.  add.l #COMPACTMAP,d1
  5735.  move.l d1,COMPACTPTR
  5736.  add.l #4,d1
  5737.  cmp.l LASTZONE,d1
  5738.  ble.s .nochange
  5739.  move.l d1,LASTZONE
  5740. .nochange:
  5741.  
  5742.  move.l #ZoneBrightTable,a1
  5743.  move.l (a1,d0.w*4),d1
  5744.  tst.b DOUPPER
  5745.  bne.s .okbot
  5746.  swap d1
  5747. .okbot:
  5748.  move.w d1,ZoneBright
  5749.  
  5750. polyloop:
  5751.  move.w (a0)+,d0
  5752.  move.w d0,WALLIDENT
  5753.  and.w #$ff,d0
  5754.  tst.b d0
  5755.  blt jumpoutofloop
  5756.  beq itsawall
  5757.  cmp.w #3,d0
  5758.  beq itsasetclip
  5759.  blt itsafloor
  5760.  cmp.w #4,d0
  5761.  beq itsanobject
  5762.  cmp.w #5,d0
  5763.  beq itsanarc
  5764.  cmp.w #6,d0
  5765.  beq itsalightbeam
  5766.  cmp.w #7,d0
  5767.  beq.s itswater
  5768.  cmp.w #9,d0
  5769.  ble itsachunkyfloor
  5770.  cmp.w #11,d0
  5771.  ble itsabumpyfloor
  5772.  cmp.w #12,d0
  5773.  beq.s itsbackdrop
  5774.  cmp.w #13,d0
  5775.  beq.s itsaseewall
  5776.  
  5777.  bra polyloop
  5778.  
  5779. itsaseewall:
  5780.  st seethru
  5781.  jsr itsawalldraw
  5782.  bra polyloop
  5783.  
  5784. itsbackdrop:
  5785.  jsr putinbackdrop
  5786.  bra polyloop
  5787.  
  5788. itswater:
  5789.  PROTHCHECK
  5790.  move.w #2,SMALLIT
  5791.  move.w #3,d0
  5792.  clr.b gourfloor
  5793.  move.l #FloorLine,LineToUse
  5794.  st usewater
  5795.  clr.b usebumps
  5796.  jsr itsafloordraw
  5797.  bra polyloop
  5798.  
  5799. itsanarc:
  5800.  jsr CurveDraw
  5801.  bra polyloop
  5802.  
  5803. itsanobject:
  5804.  jsr ObjDraw
  5805.  bra polyloop
  5806.  
  5807. itsalightbeam:
  5808.  jsr LightDraw
  5809.  bra polyloop
  5810.  
  5811. itsabumpyfloor:
  5812.  move.w #1,SMALLIT
  5813.  sub.w #9,d0
  5814.  st usebumps
  5815.  st smoothbumps
  5816.  clr.b usewater
  5817.  move.l #BumpLine,LineToUse
  5818.  jsr itsafloordraw
  5819.  bra polyloop
  5820.  
  5821. itsachunkyfloor:
  5822.  move.w #1,SMALLIT
  5823.  subq.w #7,d0
  5824.  st usebumps
  5825.  sub.w #12,topclip
  5826. ; add.w #10,botclip
  5827.  clr.b smoothbumps
  5828.  clr.b usewater
  5829.  move.l #BumpLine,LineToUse
  5830.  jsr itsafloordraw
  5831.  add.w #12,topclip
  5832. ; sub.w #10,botclip
  5833.  bra polyloop 
  5834.  
  5835. itsafloor:
  5836.  
  5837.  move.l PointBrightsPtr,FloorPtBrights
  5838.  
  5839.  move.w currzone,d1
  5840.  muls #80,d1
  5841.  
  5842.  cmp.w #2,d0
  5843.  bne.s .nfl
  5844.  add.l #2,d1
  5845. .nfl
  5846.  add.l d1,FloorPtBrights
  5847.  
  5848.  move.w #1,SMALLIT
  5849.  
  5850.  movem.l a0/d0,-(a7)
  5851.  move.l $4.w,a6
  5852.  jsr _LVOSuperState(a6)
  5853.  move.l d0,SSTACK
  5854.  movem.l (a7)+,a0/d0
  5855.  
  5856.  move.l #FloorLine,LineToUse
  5857. * 1,2 = floor/roof
  5858.  clr.b usewater
  5859.  clr.b usebumps
  5860.  move.b GOURSEL,gourfloor    
  5861.  jsr itsafloordraw
  5862.  move.l a0,-(a7)
  5863.  move.l $4.w,a6
  5864.  move.l SSTACK,d0
  5865.  jsr _LVOUserState(a6)
  5866.  move.l (a7)+,a0
  5867.  bra polyloop
  5868. itsasetclip:
  5869.  bra polyloop
  5870. itsawall:
  5871.  clr.b seethru
  5872. ; move.l #stripbuffer,a1
  5873.  jsr itsawalldraw
  5874.  bra polyloop
  5875.  
  5876. jumpoutofloop:
  5877.  rts
  5878.  
  5879. LASTZONE: dc.l 0
  5880. COMPACTPTR: dc.l 0
  5881. BIGPTR: dc.l 0
  5882. WALLIDENT: dc.w 0
  5883. SMALLIT: dc.w 0
  5884. GOURSEL: dc.w 0
  5885. ThisRoomToDraw: dc.l 0,0
  5886. SplitHeight: dc.l 0
  5887.  
  5888.  include "ab3:source_4000/OrderZones"
  5889.  
  5890. ReadMouse:
  5891.  move.l #$dff000,a6
  5892.  clr.l d0
  5893.  clr.l d1
  5894.  move.w $a(a6),d0
  5895.  lsr.w #8,d0
  5896.  ext.l d0
  5897.  move.w d0,d3
  5898.  move.w oldmy,d2
  5899.  sub.w d2,d0
  5900.  
  5901.  cmp.w #127,d0
  5902.  blt nonegy
  5903.  move.w #255,d1
  5904.  sub.w d0,d1
  5905.  move.w d1,d0
  5906.  neg.w d0
  5907. nonegy:
  5908.  
  5909.  cmp.w #-127,d0
  5910.  bge nonegy2
  5911.  move.w #255,d1
  5912.  add.w d0,d1
  5913.  move.w d1,d0
  5914. nonegy2:
  5915.  
  5916.  add.b d0,d2
  5917.  add.w d0,oldy2
  5918.  move.w d2,oldmy
  5919.  move.w d2,d0
  5920.  
  5921.  move.w oldy2,d0
  5922.  move.w d0,ymouse
  5923.  
  5924.  clr.l d0
  5925.  clr.l d1
  5926.  move.w $a(a6),d0
  5927.  ext.w d0
  5928.  ext.l d0
  5929.  move.w d0,d3
  5930.  move.w oldmx,d2
  5931.  sub.w d2,d0
  5932.  
  5933.  cmp.w #127,d0
  5934.  blt nonegx
  5935.  move.w #255,d1
  5936.  sub.w d0,d1
  5937.  move.w d1,d0
  5938.  neg.w d0
  5939. nonegx:
  5940.  
  5941.  cmp.w #-127,d0
  5942.  bge nonegx2
  5943.  move.w #255,d1
  5944.  add.w d0,d1
  5945.  move.w d1,d0
  5946. nonegx2:
  5947.  
  5948.  add.b d0,d2
  5949.  move.w d0,d1
  5950.  move.w d2,oldmx
  5951.  
  5952.  move.w #$0,$dff034
  5953.  
  5954.  add.w d0,oldx2
  5955.  move.w oldx2,d0
  5956.  and.w #2047,d0
  5957.  move.w d0,oldx2
  5958.  
  5959.  asl.w #2,d0
  5960.  sub.w prevx,d0
  5961.  add.w d0,prevx
  5962.  add.w d0,angpos
  5963.  move.w #0,lrs
  5964.  rts
  5965.  
  5966. noturn:
  5967.  
  5968. ; got to move lr instead. 
  5969.  
  5970. ; d1 = speed moved l/r
  5971.  
  5972.  move.w d1,lrs
  5973.  
  5974.  rts
  5975.  
  5976. lrs: dc.w 0
  5977. prevx: dc.w 0
  5978.  
  5979. angpos: dc.w 0
  5980. mang: dc.w 0
  5981. oldymouse: dc.w 0
  5982. xmouse: dc.w 0
  5983. ymouse: dc.w 0
  5984. oldx2: dc.w 0
  5985. oldmx: dc.w 0
  5986. oldmy: dc.w 0
  5987. oldy2: dc.w 0
  5988.  
  5989. MAPON: dc.w $0
  5990. REALMAPON: dc.w 0
  5991.  
  5992. RotateLevelPts:
  5993.  
  5994.  tst.b REALMAPON
  5995.  beq ONLYTHELONELY
  5996.  
  5997.  move.w sinval,d6
  5998.  swap d6
  5999.  move.w cosval,d6
  6000.  move.l Points,a3
  6001.  move.l #Rotated,a1
  6002.  move.l #OnScreen,a2
  6003.  move.w xoff,d4
  6004.  asr.w #1,d4
  6005.  move.w zoff,d5
  6006.  asr.w #1,d5
  6007. ; move.w #$c40,$dff106
  6008. ; move.w #$f00,$dff180
  6009.  
  6010.  move.w NumLevPts,d7
  6011.  
  6012.  tst.b FULLSCR
  6013.  bne BIGALL
  6014.  
  6015. pointrotlop2:
  6016.  move.w (a3)+,d0
  6017.  asr.w #1,d0
  6018.  sub.w d4,d0
  6019.  move.w d0,d2
  6020.  move.w (a3)+,d1
  6021.  asr.w #1,d1
  6022.  sub.w d5,d1
  6023.  muls d6,d2
  6024.  swap d6
  6025.  move.w d1,d3
  6026.  muls d6,d3
  6027.  sub.l d3,d2
  6028. ; add.l d2,d2
  6029. ; swap d2
  6030. ; ext.l d2
  6031. ; asl.l #7,d2
  6032.  
  6033.  asr.l #7,d2
  6034.  
  6035.  add.l xwobble,d2
  6036.  move.l d2,(a1)+
  6037.  
  6038.  muls d6,d0
  6039.  swap d6
  6040.  muls d6,d1
  6041.  add.l d0,d1
  6042. ; asl.l #2,d1
  6043. ; swap d1
  6044.  
  6045.  asr.l #8,d1
  6046.  asr.l #6,d1
  6047.  
  6048.  move.l d1,(a1)+
  6049.  
  6050.  tst.l d1
  6051.  bgt.s ptnotbehind
  6052.  tst.w d2
  6053.  bgt.s onrightsomewhere
  6054.  move.w #0,d2
  6055.  bra putin
  6056. onrightsomewhere:
  6057.  move.w RIGHTX,d2
  6058.  bra putin
  6059. ptnotbehind:
  6060.  
  6061.  divs.l d1,d2
  6062.  add.w MIDDLEX,d2
  6063. putin:
  6064.  move.w d2,(a2)+
  6065.  
  6066.  dbra d7,pointrotlop2
  6067. outofpointrot:
  6068.   rts
  6069.  
  6070.  
  6071. BIGALL:
  6072.  
  6073. pointrotlop2B:
  6074.  move.w (a3)+,d0
  6075.  asr.w #1,d0
  6076.  sub.w d4,d0
  6077.  move.w d0,d2
  6078.  move.w (a3)+,d1
  6079.  asr.w #1,d1
  6080.  sub.w d5,d1
  6081.  muls d6,d2
  6082.  swap d6
  6083.  move.w d1,d3
  6084.  muls d6,d3
  6085.  sub.l d3,d2
  6086. ; add.l d2,d2
  6087. ; swap d2
  6088. ; ext.l d2
  6089. ; asl.l #7,d2
  6090.  asr.l #7,d2
  6091.  add.l xwobble,d2
  6092.  move.l d2,(a1)+
  6093.  
  6094.  muls d6,d0
  6095.  swap d6
  6096.  muls d6,d1
  6097.  add.l d0,d1
  6098.  
  6099.  divs.l #3,d1
  6100.  asr.l #8,d1
  6101.  asr.l #5,d1
  6102.  
  6103. ; asl.l #3,d1
  6104. ; swap d1
  6105. ; ext.l d1
  6106. ; divs #3,d1
  6107.  move.l d1,(a1)+
  6108.  
  6109.  tst.l d1
  6110.  bgt.s ptnotbehindB
  6111.  tst.w d2
  6112.  bgt.s onrightsomewhereB
  6113.  move.w #0,d2
  6114.  bra putinB
  6115. onrightsomewhereB:
  6116.  move.w RIGHTX,d2
  6117.  bra putinB
  6118. ptnotbehindB:
  6119.  
  6120.  divs.l d1,d2
  6121.  add.w MIDDLEX,d2
  6122. putinB:
  6123.  move.w d2,(a2)+
  6124.  
  6125.  dbra d7,pointrotlop2B
  6126.   rts
  6127.  
  6128.  
  6129. ONLYTHELONELY:
  6130.  
  6131.  move.w sinval,d6
  6132.  swap d6
  6133.  move.w cosval,d6
  6134.  
  6135.  move.l PointsToRotatePtr,a0
  6136.  move.l Points,a3
  6137.  move.l #Rotated,a1
  6138.  move.l #OnScreen,a2
  6139.  move.w xoff,d4
  6140.  move.w zoff,d5
  6141.  
  6142. ; move.w #$c40,$dff106
  6143. ; move.w #$f00,$dff180
  6144.  
  6145.  tst.b FULLSCR
  6146.  bne BIGLONELY
  6147.  
  6148. pointrotlop:
  6149.  move.w (a0)+,d7
  6150.  blt outofpointrot
  6151.  
  6152.  move.w (a3,d7*4),d0
  6153.  sub.w d4,d0
  6154.  move.w d0,d2
  6155.  move.w 2(a3,d7*4),d1
  6156.  sub.w d5,d1
  6157.  muls d6,d2
  6158.  swap d6
  6159.  move.w d1,d3
  6160.  muls d6,d3
  6161.  sub.l d3,d2
  6162.  add.l d2,d2
  6163.  swap d2
  6164.  ext.l d2
  6165.  asl.l #7,d2
  6166.  add.l xwobble,d2
  6167.  move.l d2,(a1,d7*8)
  6168.  
  6169.  muls d6,d0
  6170.  swap d6
  6171.  muls d6,d1
  6172.  add.l d0,d1
  6173.  asl.l #1,d1
  6174.  swap d1
  6175. ; ext.l d1
  6176. ; divs #3,d1
  6177.  move.l d1,4(a1,d7*8)
  6178.  
  6179.  tst.w d1
  6180.  bgt.s .ptnotbehind
  6181.  tst.w d2
  6182.  bgt.s .onrightsomewhere
  6183.  move.w #0,d2
  6184.  bra .putin
  6185. .onrightsomewhere:
  6186.  move.w RIGHTX,d2
  6187.  bra .putin
  6188. .ptnotbehind:
  6189.  
  6190.  divs d1,d2
  6191.  add.w MIDDLEX,d2
  6192. .putin:
  6193.  move.w d2,(a2,d7*2)
  6194.  
  6195.  bra pointrotlop
  6196.  
  6197. ; move.w #$c40,$dff106
  6198. ; move.w #$ff0,$dff180
  6199.  
  6200.  rts
  6201.  
  6202. BIGLONELY:
  6203.  
  6204. .pointrotlop:
  6205.  move.w (a0)+,d7
  6206.  blt.s .outofpointrot
  6207.  
  6208.  move.w (a3,d7*4),d0
  6209.  sub.w d4,d0
  6210.  move.w d0,d2
  6211.  move.w 2(a3,d7*4),d1
  6212.  sub.w d5,d1
  6213.  muls d6,d2
  6214.  swap d6
  6215.  move.w d1,d3
  6216.  muls d6,d3
  6217.  sub.l d3,d2
  6218.  add.l d2,d2
  6219.  swap d2
  6220.  ext.l d2
  6221.  asl.l #7,d2
  6222.  add.l xwobble,d2
  6223.  move.l d2,(a1,d7*8)
  6224.  
  6225.  muls d6,d0
  6226.  swap d6
  6227.  muls d6,d1
  6228.  add.l d0,d1
  6229.  asl.l #2,d1
  6230.  swap d1
  6231.  ext.l d1
  6232.  divs #3,d1
  6233.  move.l d1,4(a1,d7*8)
  6234.  
  6235.  tst.w d1
  6236.  bgt.s .ptnotbehind
  6237.  tst.w d2
  6238.  bgt.s .onrightsomewhere
  6239.  move.w #0,d2
  6240.  bra .putin
  6241. .onrightsomewhere:
  6242.  move.w RIGHTX,d2
  6243.  bra .putin
  6244. .ptnotbehind:
  6245.  
  6246.  divs d1,d2
  6247.  add.w MIDDLEX,d2
  6248. .putin:
  6249.  move.w d2,(a2,d7*2)
  6250.  
  6251.  bra .pointrotlop
  6252.  
  6253. .outofpointrot:
  6254. ; move.w #$c40,$dff106
  6255. ; move.w #$ff0,$dff180
  6256.  
  6257.  rts
  6258.  
  6259.  
  6260. PLR1_ObjDists
  6261.  ds.w 250
  6262. PLR2_ObjDists
  6263.  ds.w 250
  6264.  
  6265. CalcPLR1InLine:
  6266.  
  6267.  move.w PLR1_sinval,d5
  6268.  move.w PLR1_cosval,d6
  6269.  move.l ObjectData,a4
  6270.  move.l ObjectPoints,a0
  6271.  move.w NumObjectPoints,d7
  6272.  move.l #PLR1_ObsInLine,a2
  6273.  move.l #PLR1_ObjDists,a3
  6274.  
  6275. .objpointrotlop:
  6276.  
  6277.  cmp.b #3,16(a4)
  6278.  beq.s .itaux
  6279.  
  6280.  move.w (a0),d0
  6281.  sub.w PLR1_xoff,d0
  6282.  move.w 4(a0),d1
  6283.  addq #8,a0
  6284.  
  6285.  tst.w 12(a4)
  6286.  blt .noworkout
  6287.  
  6288.  moveq #0,d2
  6289.  move.b 16(a4),d2
  6290.  ;move.l #ColBoxTable,a6
  6291.  ;lea (a6,d2.w*8),a6
  6292.  
  6293.  sub.w PLR1_zoff,d1
  6294.  move.w d0,d2
  6295.  muls d6,d2
  6296.  move.w d1,d3
  6297.  muls d5,d3
  6298.  sub.l d3,d2
  6299.  add.l d2,d2
  6300.  
  6301.  bgt.s .okh
  6302.  neg.l d2
  6303. .okh:
  6304.  swap d2
  6305.  
  6306.  muls d5,d0
  6307.  muls d6,d1
  6308.  add.l d0,d1
  6309.  asl.l #2,d1
  6310.  swap d1
  6311.  moveq #0,d3
  6312.  
  6313.  tst.w d1
  6314.  ble.s .notinline
  6315.  asr.w #1,d2
  6316.  cmp.w #80,d2
  6317.  bgt.s .notinline
  6318.  
  6319.  st d3
  6320. .notinline
  6321.  move.b d3,(a2)+
  6322.  
  6323.  move.w d1,(a3)+
  6324.  
  6325.  add.w #64,a4
  6326.  dbra d7,.objpointrotlop
  6327.  
  6328.  rts
  6329.  
  6330. .itaux:
  6331.  add.w #64,a4
  6332.  bra .objpointrotlop
  6333.  
  6334. .noworkout:
  6335.  move.b #0,(a2)+
  6336.  move.w #0,(a3)+
  6337.  add.w #64,a4
  6338.  dbra d7,.objpointrotlop
  6339.  rts
  6340.  
  6341.  
  6342. CalcPLR2InLine:
  6343.  
  6344.  move.w PLR2_sinval,d5
  6345.  move.w PLR2_cosval,d6
  6346.  move.l ObjectData,a4
  6347.  move.l ObjectPoints,a0
  6348.  move.w NumObjectPoints,d7
  6349.  move.l #PLR2_ObsInLine,a2
  6350.  move.l #PLR2_ObjDists,a3
  6351.  
  6352. .objpointrotlop:
  6353.  
  6354.  cmp.b #3,16(a4)
  6355.  beq.s .itaux
  6356.  
  6357.  move.w (a0),d0
  6358.  sub.w PLR2_xoff,d0
  6359.  move.w 4(a0),d1
  6360.  addq #8,a0
  6361.  
  6362.  tst.w 12(a4)
  6363.  blt .noworkout
  6364.  
  6365.  moveq #0,d2
  6366.  move.b 16(a4),d2
  6367. ; move.l #ColBoxTable,a6
  6368. ; lea (a6,d2.w*8),a6
  6369.  
  6370.  sub.w PLR2_zoff,d1
  6371.  move.w d0,d2
  6372.  muls d6,d2
  6373.  move.w d1,d3
  6374.  muls d5,d3
  6375.  sub.l d3,d2
  6376.  add.l d2,d2
  6377.  
  6378.  bgt.s .okh
  6379.  neg.l d2
  6380. .okh:
  6381.  swap d2
  6382.  
  6383.  muls d5,d0
  6384.  muls d6,d1
  6385.  add.l d0,d1
  6386.  asl.l #2,d1
  6387.  swap d1
  6388.  moveq #0,d3
  6389.  
  6390.  tst.w d1
  6391.  ble.s .notinline
  6392.  asr.w #1,d2
  6393.  cmp.w (a6),d2
  6394.  bgt.s .notinline
  6395.  
  6396.  st d3
  6397. .notinline
  6398.  move.b d3,(a2)+
  6399.  
  6400.  move.w d1,(a3)+
  6401.  
  6402.  add.w #64,a4
  6403.  dbra d7,.objpointrotlop
  6404.  
  6405.  rts
  6406.  
  6407. .itaux:
  6408.  add.w #64,a4
  6409.  bra .objpointrotlop
  6410.  
  6411. .noworkout:
  6412.  move.w #0,(a3)+
  6413.  move.b #0,(a2)+
  6414.  add.w #64,a4
  6415.  dbra d7,.objpointrotlop
  6416.  rts
  6417.  
  6418.  
  6419. RotateObjectPts:
  6420.  
  6421.  move.w sinval,d5
  6422.  move.w cosval,d6
  6423.  
  6424.  move.l ObjectData,a4
  6425.  move.l ObjectPoints,a0
  6426.  move.w NumObjectPoints,d7
  6427.  move.l #ObjRotated,a1
  6428.  
  6429.  tst.b FULLSCR
  6430.  bne BIGOBJPTS
  6431.  
  6432.  
  6433. .objpointrotlop:
  6434.  
  6435.  cmp.b #3,16(a4)
  6436.  beq.s .itaux
  6437.  
  6438.  move.w (a0),d0
  6439.  sub.w xoff,d0
  6440.  move.w 4(a0),d1
  6441.  addq #8,a0
  6442.  
  6443.  tst.w 12(a4)
  6444.  blt .noworkout
  6445.  
  6446.  sub.w zoff,d1
  6447.  
  6448.  move.w d0,d2
  6449.  muls d6,d2
  6450.  move.w d1,d3
  6451.  muls d5,d3
  6452.  sub.l d3,d2
  6453.  
  6454.  
  6455.  add.l d2,d2
  6456.  swap d2
  6457.  move.w d2,(a1)+
  6458.  
  6459.  muls d5,d0
  6460.  muls d6,d1
  6461.  add.l d0,d1
  6462.  asl.l #1,d1
  6463.  swap d1
  6464. ; ext.l d1
  6465. ; divs #3,d1
  6466.  moveq #0,d3
  6467.  
  6468.  move.w d1,(a1)+
  6469.  ext.l d2
  6470.  asl.l #7,d2
  6471.  add.l xwobble,d2
  6472.  move.l d2,(a1)+
  6473.  
  6474.  dbra d7,.objpointrotlop
  6475.  
  6476.  rts
  6477.  
  6478. .itaux:
  6479.  add.w #64,a4
  6480.  bra .objpointrotlop
  6481.  
  6482. .noworkout:
  6483.   move.l #0,(a1)+
  6484.   move.l #0,(a1)+
  6485.   add.w #64,a4
  6486.   dbra d7,.objpointrotlop
  6487.   rts
  6488.   
  6489. BIGOBJPTS:
  6490.  
  6491. .objpointrotlop:
  6492.  
  6493.  cmp.b #3,16(a4)
  6494.  beq.s .itaux
  6495.  
  6496.  move.w (a0),d0
  6497.  sub.w xoff,d0
  6498.  move.w 4(a0),d1
  6499.  addq #8,a0
  6500.  
  6501.  tst.w 12(a4)
  6502.  blt .noworkout
  6503.  
  6504.  sub.w zoff,d1
  6505.  move.w d0,d2
  6506.  muls d6,d2
  6507.  move.w d1,d3
  6508.  muls d5,d3
  6509.  sub.l d3,d2
  6510.  
  6511.  
  6512.  add.l d2,d2
  6513.  swap d2
  6514.  move.w d2,(a1)+
  6515.  
  6516.  muls d5,d0
  6517.  muls d6,d1
  6518.  add.l d0,d1
  6519.  asl.l #2,d1
  6520.  swap d1
  6521.  ext.l d1
  6522.  divs #3,d1
  6523.  moveq #0,d3
  6524.  
  6525.  move.w d1,(a1)+
  6526.  ext.l d2
  6527.  asl.l #7,d2
  6528.  add.l xwobble,d2
  6529.  move.l d2,(a1)+
  6530.  sub.l xwobble,d2
  6531.  
  6532.  add.w #64,a4
  6533.  dbra d7,.objpointrotlop
  6534.  
  6535.  rts
  6536.  
  6537. .itaux:
  6538.  add.w #64,a4
  6539.  bra .objpointrotlop
  6540.  
  6541. .noworkout:
  6542.   move.l #0,(a1)+
  6543.   move.l #0,(a1)+
  6544.   add.w #64,a4
  6545.   dbra d7,.objpointrotlop
  6546.   rts
  6547.  
  6548. LightDraw:
  6549.  
  6550.  move.w (a0)+,d0
  6551.  move.w (a0)+,d1
  6552.  move.l #Rotated,a1
  6553.  move.w 6(a1,d0.w*8),d2
  6554.  ble.s oneendbehind
  6555.  move.w 6(a1,d1.w*8),d3
  6556.  bgt.s bothendsinfront
  6557.  
  6558. oneendbehind:
  6559.  rts
  6560. bothendsinfront:
  6561.  
  6562.  move.l #OnScreen,a2
  6563.  move.w (a2,d0.w*2),d0
  6564.  bge.s okleftend
  6565.  moveq #0,d0
  6566. okleftend:
  6567.  move.w (a2,d1.w*2),d1
  6568.  bgt.s somevis
  6569.  rts
  6570. somevis:
  6571.  cmp.w RIGHTX,d0
  6572.  blt.s somevis2
  6573.  rts
  6574. somevis2:
  6575.  cmp.w RIGHTX,d1
  6576.  blt.s okrightend
  6577.  move.w RIGHTX,d1
  6578.  subq #1,d1
  6579. okrightend:
  6580.  
  6581.  sub.w d0,d1
  6582.  blt.s wrongbloodywayround
  6583.  move.l TexturePal,a4
  6584.  move.l #objintocop,a1
  6585.  lea (a1,d0.w*2),a1
  6586.  
  6587.  move.l frompt,a3
  6588.  move.w #104*4,d6
  6589.  move.w #79,d2
  6590. lacross:
  6591.  move.w d2,d3
  6592.  move.l a3,a2
  6593.  adda.w (a1)+,a2
  6594. ldown:
  6595.  add.w d6,a2
  6596.  move.w (a2),d7
  6597.  move.w (a4,d7.w*2),(a2)
  6598.  dbra d3,ldown
  6599.  dbra d1,lacross
  6600.  
  6601. wrongbloodywayround:
  6602.  
  6603.  rts
  6604.  
  6605. FaceToPlace: dc.w 0
  6606.  
  6607. Cheese:
  6608.  dc.w 4,15
  6609.  
  6610. FacesList:
  6611.  dc.w 0,4*4
  6612.  dc.w 1,2*4
  6613.  dc.w 0,2*4
  6614.  dc.w 2,2*4
  6615.  dc.w 0,2*4
  6616.  dc.w 1,3*4
  6617.  dc.w 0,2*4
  6618.  dc.w 2,3*4
  6619.  dc.w 0,5*4
  6620.  dc.w 1,2*4
  6621.  dc.w 0,2*4
  6622.  dc.w 2,2*4
  6623.  dc.w 0,2*4
  6624.  dc.w 1,2*4
  6625.  dc.w 0,2*4
  6626.  dc.w 2,3*4
  6627.  dc.w 0,1*4
  6628.  dc.w 1,3*4
  6629.  dc.w 0,1*4
  6630.  dc.w 2,3*4
  6631.  dc.w 0,1*4
  6632.  
  6633. EndOfFacesList:
  6634.  
  6635. FacesPtr:
  6636.  dc.l FacesList
  6637. FacesCounter:
  6638.  dc.w 0
  6639. Expression:
  6640.  dc.w 0
  6641.  
  6642.  
  6643. Energy:
  6644.  dc.w 191
  6645. OldEnergy:
  6646.  dc.w 191
  6647. Ammo: dc.w 63
  6648. OldAmmo: dc.w 63
  6649.  
  6650. FullEnergy:
  6651. ; move.w #127,Energy
  6652. ; move.w #127,OldEnergy
  6653. ; move.l #health,a0
  6654. ; move.l #borders,a1
  6655. ; add.l #25*8*2+6,a1
  6656. ; lea 2592(a1),a2
  6657. ; move.w #127,d0
  6658. ;PutInFull:
  6659. ; move.b (a0)+,(a1)
  6660. ; move.b (a0)+,8(a1)
  6661. ; add.w #16,a1
  6662. ; move.b (a0)+,(a2)
  6663. ; move.b (a0)+,8(a2)
  6664. ; add.w #16,a2
  6665. ; dbra d0,PutInFull
  6666.  
  6667.  rts
  6668.  
  6669. ;EnergyBar:
  6670.  
  6671.  move.w Energy,d0
  6672.  bgt.s .noeneg
  6673.  move.w #0,d0
  6674. .noeneg:
  6675.  move.w d0,Energy
  6676.  
  6677.  cmp.w OldEnergy,d0
  6678.  bne.s gottochange
  6679.  
  6680. NoChange
  6681.  rts
  6682.  
  6683. gottochange:
  6684.   
  6685.  blt LessEnergy
  6686.  cmp.w #127,Energy
  6687.  blt.s NotMax
  6688.  move.w #127,Energy
  6689. NotMax:
  6690.  
  6691.  move.w Energy,d0
  6692.  move.w OldEnergy,d2
  6693.  sub.w d0,d2
  6694.  beq.s NoChange    
  6695.  neg.w d2
  6696.  
  6697.  move.w #127,d3
  6698.  sub.w d0,d3
  6699.  
  6700.  move.l #health,a0
  6701.  lea (a0,d3.w*4),a0
  6702. ; move.l #borders+25*16+6,a1
  6703.  lsl.w #4,d3
  6704.  add.w d3,a1
  6705.  lea 2592(a1),a2
  6706.  
  6707. EnergyRise:
  6708.  move.b (a0)+,(a1)
  6709.  move.b (a0)+,8(a1)
  6710.  add.w #16,a1
  6711.  move.b (a0)+,(a2)
  6712.  move.b (a0)+,8(a2)
  6713.  add.w #16,a2
  6714.  subq #1,d2
  6715.  bgt.s EnergyRise
  6716.  
  6717.  move.w Energy,OldEnergy
  6718.  
  6719.  rts 
  6720.  
  6721. LessEnergy: 
  6722.  move.w OldEnergy,d2
  6723.  sub.w d0,d2
  6724.  
  6725.  move.w #127,d3
  6726.  sub.w OldEnergy,d3
  6727.  
  6728. ; move.l #borders+25*16+6,a1
  6729.  asl.w #4,d3
  6730.  add.w d3,a1
  6731.  lea 2592(a1),a2
  6732.  
  6733. EnergyDrain:
  6734.  move.b #0,(a1)
  6735.  move.b #0,8(a1)
  6736.  move.b #0,(a2)
  6737.  move.b #0,8(a2)
  6738.  add.w #16,a1
  6739.  add.w #16,a2
  6740.  subq #1,d2
  6741.  bgt.s EnergyDrain
  6742.  
  6743.  move.w Energy,OldEnergy
  6744.  
  6745.  rts 
  6746.  
  6747. firstdigit: dc.b 0
  6748. secdigit: dc.b 0
  6749. thirddigit: dc.b 0
  6750.  
  6751.  even
  6752.  
  6753. gunny: dc.w 0
  6754.  
  6755. AmmoBar:
  6756.  
  6757. * Do guns first.
  6758.  
  6759.  move.l #borderchars,a4
  6760.  move.b p1_gunselected,d0 
  6761.  move.l #PLAYERONEGUNS,a5
  6762.  cmp.b #'s',mors
  6763.  bne.s .notplr2
  6764.  move.l #PLAYERTWOGUNS,a5
  6765.  move.b p2_gunselected,d0
  6766. .notplr2:
  6767.  
  6768.  move.b d0,gunny
  6769.  
  6770.  move.w #9,d2
  6771.  moveq #0,d0
  6772. putingunnums:
  6773.  move.w #4,d1
  6774.  move.l a4,a0
  6775.  cmp.b gunny,d0
  6776.  bne.s .notsel
  6777.  add.l #5*10*8*2,a0
  6778.  addq #2,a5
  6779.  bra.s .donesel
  6780. .notsel:
  6781.  tst.w (a5)+
  6782.  beq.s .donesel
  6783.  add.l #5*10*8,a0
  6784. .donesel:
  6785.  move.l SCRNDRAWPT,a1
  6786.  add.w d0,a1
  6787.  add.l #3+(240*40),a1
  6788.  bsr DRAWDIGIT
  6789.  addq #1,d0
  6790.  dbra d2,putingunnums
  6791.  
  6792.  move.w Ammo,d0
  6793.  ext.l d0
  6794.  divs #10,d0
  6795.  swap d0
  6796.  move.b d0,thirddigit
  6797.  swap d0
  6798.  ext.l d0
  6799.  divs #10,d0
  6800.  move.b d0,firstdigit
  6801.  swap d0
  6802.  move.b d0,secdigit
  6803.  
  6804.  move.l #borderchars+15*8*10,a0
  6805.  cmp.w #10,Ammo
  6806.  blt.s .notsmallamo
  6807.  add.l #7*8*10,a0
  6808. .notsmallamo:
  6809.  
  6810.  move.l SCRNDRAWPT,a1
  6811.  add.l #20+238*40,a1
  6812.  move.b firstdigit,d0
  6813.  move.w #6,d1
  6814.  bsr DRAWDIGIT
  6815.  
  6816.  move.l SCRNDRAWPT,a1
  6817.  add.l #21+238*40,a1
  6818.  move.b secdigit,d0
  6819.  move.w #6,d1
  6820.  bsr DRAWDIGIT
  6821.  
  6822.  move.l SCRNDRAWPT,a1
  6823.  add.l #22+238*40,a1
  6824.  move.b thirddigit,d0
  6825.  move.w #6,d1
  6826.  bsr DRAWDIGIT
  6827.  
  6828.  rts
  6829.  
  6830. EnergyBar:
  6831.  move.w Energy,d0
  6832.  bge.s .okpo
  6833.  moveq #0,d0 
  6834. .okpo:
  6835.  
  6836.  ext.l d0
  6837.  divs #10,d0
  6838.  swap d0
  6839.  move.b d0,thirddigit
  6840.  swap d0
  6841.  ext.l d0
  6842.  divs #10,d0
  6843.  move.b d0,firstdigit
  6844.  swap d0
  6845.  move.b d0,secdigit
  6846.  
  6847.  move.l #borderchars+15*8*10,a0
  6848.  cmp.w #10,Energy
  6849.  blt.s .notsmallamo
  6850.  add.l #7*8*10,a0
  6851. .notsmallamo:
  6852.  
  6853.  move.l SCRNDRAWPT,a1
  6854.  add.l #34+238*40,a1
  6855.  move.b firstdigit,d0
  6856.  move.w #6,d1
  6857.  bsr DRAWDIGIT
  6858.  
  6859.  move.l SCRNDRAWPT,a1
  6860.  add.l #35+238*40,a1
  6861.  move.b secdigit,d0
  6862.  move.w #6,d1
  6863.  bsr DRAWDIGIT
  6864.  
  6865.  move.l SCRNDRAWPT,a1
  6866.  add.l #36+238*40,a1
  6867.  move.b thirddigit,d0
  6868.  move.w #6,d1
  6869.  bsr DRAWDIGIT
  6870.  
  6871.  move.l SCRNSHOWPT,a1
  6872.  add.l #34+238*40,a1
  6873.  move.b firstdigit,d0
  6874.  move.w #6,d1
  6875.  bsr DRAWDIGIT
  6876.  
  6877.  move.l SCRNSHOWPT,a1
  6878.  add.l #35+238*40,a1
  6879.  move.b secdigit,d0
  6880.  move.w #6,d1
  6881.  bsr DRAWDIGIT
  6882.  
  6883.  move.l SCRNSHOWPT,a1
  6884.  add.l #36+238*40,a1
  6885.  move.b thirddigit,d0
  6886.  move.w #6,d1
  6887.  bsr DRAWDIGIT
  6888.  
  6889.  
  6890.  rts
  6891.  
  6892.  
  6893. DRAWDIGIT:
  6894.  ext.w d0
  6895.  lea (a0,d0.w),a2
  6896. charlines:
  6897.  lea 30720(a1),a3 
  6898.  move.b (a2),(a1)
  6899.  move.b 10(a2),10240(a1)
  6900.  move.b 20(a2),20480(a1)
  6901.  move.b 30(a2),(a3)
  6902.  move.b 40(a2),10240(a3)
  6903.  move.b 50(a2),20480(a3)
  6904.  lea 30720(a3),a3
  6905.  move.b 60(a2),(a3)
  6906.  move.b 70(a2),10240(a3)
  6907.  
  6908.  add.w #10*8,a2
  6909.  add.w #40,a1
  6910.  dbra d1,charlines
  6911.  
  6912.  rts
  6913.  
  6914. borderchars: incbin "ab3:includes/bordercharsRAW"
  6915.  
  6916. NARRATOR:
  6917.  
  6918. ; sub.w #1,NARRTIME
  6919. ; bge .NOCHARYET
  6920. ; move.w #3,NARRTIME
  6921.  
  6922.  move.l #SCROLLSCRN,d1
  6923.  move.w d1,scroll
  6924.  swap d1
  6925.  move.w d1,scrolh
  6926.  
  6927.  move.w SCROLLTIMER,d0
  6928.  subq #1,d0
  6929.  move.w d0,SCROLLTIMER
  6930.  cmp.w #40,d0
  6931.  bge .NOCHARYET
  6932.  tst.w d0
  6933.  bge.s .okcha
  6934.  
  6935.  move.w #150,SCROLLTIMER
  6936.  bra .NOCHARYET
  6937.  
  6938. .okcha:
  6939.  
  6940.  move.l #SCROLLSCRN,a0
  6941.  add.w SCROLLXPOS,a0
  6942.  
  6943.  moveq #1,d7
  6944. .doachar: 
  6945.  
  6946.  move.l SCROLLPOINTER,a1
  6947.  moveq #0,d1
  6948.  move.b (a1)+,d1    ; character
  6949.  move.l a1,d2
  6950.  cmp.l ENDSCROLL,d2
  6951.  blt.s .notrestartscroll
  6952.  move.l #BLANKSCROLL,a1
  6953.  move.l #BLANKSCROLL+80,ENDSCROLL
  6954. .notrestartscroll
  6955.  move.l a1,SCROLLPOINTER
  6956.  
  6957.  move.l #SCROLLCHARS,a1
  6958.  asl.w #3,d1
  6959.  add.w d1,a1
  6960.  
  6961.  move.b (a1)+,(a0)
  6962.  move.b (a1)+,80(a0)
  6963.  move.b (a1)+,80*2(a0)
  6964.  move.b (a1)+,80*3(a0)
  6965.  move.b (a1)+,80*4(a0)
  6966.  move.b (a1)+,80*5(a0)
  6967.  move.b (a1)+,80*6(a0)
  6968.  move.b (a1)+,80*7(a0)
  6969.  
  6970.  addq #1,a0
  6971.  dbra d7,.doachar
  6972.  
  6973.  move.w SCROLLXPOS,d0
  6974.  addq #2,d0
  6975.  move.w d0,SCROLLXPOS
  6976.  cmp.w #80,d0
  6977.  blt .NOCHARYET
  6978.  move.w #0,SCROLLXPOS
  6979.  
  6980. .NOCHARYET:
  6981.  rts
  6982.  
  6983. ; cmp.w OldAmmo,d0
  6984. ; bne.s .gottochange
  6985. ; 
  6986.  
  6987. NARRTIME: dc.w 5
  6988.  
  6989. SCROLLCHARS: incbin "ab3:includes/scrollfont"
  6990.  
  6991. .NoChange
  6992.  rts
  6993.  
  6994. .gottochange:
  6995.   
  6996.  blt LessAmmo
  6997.  cmp.w #63,Ammo
  6998.  blt.s .NotMax
  6999.  move.w #63,Ammo
  7000. .NotMax:
  7001.  
  7002.  move.w Ammo,d0
  7003.  move.w OldAmmo,d2
  7004.  sub.w d0,d2
  7005.  beq.s .NoChange
  7006.  neg.w d2
  7007.  
  7008.  move.w #63,d3
  7009.  sub.w d0,d3
  7010.  
  7011.  move.l #Ammunition,a0
  7012.  lea (a0,d3.w*8),a0
  7013. ; move.l #borders+5184+25*16+1,a1
  7014.  lsl.w #5,d3
  7015.  add.w d3,a1
  7016.  lea 2592(a1),a2
  7017.  
  7018. AmmoRise:
  7019.  move.b (a0)+,(a1)
  7020.  move.b (a0)+,8(a1)
  7021.  add.w #16,a1
  7022.  move.b (a0)+,(a2)
  7023.  move.b (a0)+,8(a2)
  7024.  add.w #16,a2
  7025.  move.b (a0)+,(a1)
  7026.  move.b (a0)+,8(a1)
  7027.  add.w #16,a1
  7028.  move.b (a0)+,(a2)
  7029.  move.b (a0)+,8(a2)
  7030.  add.w #16,a2
  7031.  subq #1,d2
  7032.  bgt.s AmmoRise
  7033.  
  7034.  move.w Ammo,OldAmmo
  7035.  
  7036.  rts 
  7037.  
  7038.  
  7039. LessAmmo: 
  7040.  move.w OldAmmo,d2
  7041.  sub.w d0,d2
  7042.  
  7043.  move.w #63,d3
  7044.  sub.w OldAmmo,d3
  7045.  
  7046. ; move.l #borders++5184+25*16+1,a1
  7047.  asl.w #5,d3
  7048.  add.w d3,a1
  7049.  lea 2592(a1),a2
  7050.  
  7051. AmmoDrain:
  7052.  move.b #0,(a1)
  7053.  move.b #0,8(a1)
  7054.  move.b #0,(a2)
  7055.  move.b #0,8(a2)
  7056.  add.w #16,a1
  7057.  add.w #16,a2
  7058.  move.b #0,(a1)
  7059.  move.b #0,8(a1)
  7060.  move.b #0,(a2)
  7061.  move.b #0,8(a2)
  7062.  add.w #16,a1
  7063.  add.w #16,a2
  7064.  subq #1,d2
  7065.  bgt.s AmmoDrain
  7066.  
  7067.  move.w Ammo,OldAmmo
  7068.  
  7069.  rts 
  7070.  
  7071. nulop:
  7072.  move.w #$0010,$dff000+intreq
  7073.  rte
  7074.  
  7075. doanything: dc.w 0
  7076.  
  7077. end:
  7078. ;     _break #0
  7079.  
  7080.  move.l #$dff000,a6
  7081.  move.w #$f,$dff000+dmacon
  7082. waitfortop22:
  7083.  btst.b #0,intreqrl(a6)
  7084.  beq waitfortop22
  7085. waitfortop222:
  7086.  btst.b #0,intreqrl(a6)
  7087.  beq waitfortop222
  7088.  
  7089.  clr.b dosounds
  7090.  clr.b doanything
  7091.  
  7092.  move.w PLAYERONEHEALTH,Energy
  7093.  cmp.b #'s',mors
  7094.  bne.s .notsl
  7095.  move.w PLAYERTWOHEALTH,Energy
  7096. .notsl:
  7097.  
  7098.  move.l drawpt,d0
  7099.  move.l olddrawpt,drawpt
  7100.  move.l d0,olddrawpt
  7101.  
  7102. ; cmp.b #'b',Prefsfile+3
  7103. ; bne.s .noback
  7104. ; jsr mt_end
  7105. ;.noback
  7106.  
  7107.  tst.w Energy
  7108.  bgt.s wevewon
  7109.  move.w #0,Energy
  7110.  bsr EnergyBar
  7111.  
  7112.  move.l #gameover,mt_data
  7113.  st UseAllChannels
  7114.  clr.b reachedend
  7115.  jsr mt_init
  7116. playgameover:
  7117.  move.l #$dff000,a6
  7118. waitfortop2:
  7119.  
  7120.     
  7121.  btst.b #0,intreqrl(a6)
  7122.  beq waitfortop2
  7123.  move.w #$1,intreq(a6)
  7124.  
  7125.     
  7126.  jsr mt_music
  7127.  
  7128.  
  7129.     
  7130.  tst.b reachedend
  7131.  beq.s playgameover
  7132.  
  7133.  bra wevelost
  7134.  
  7135.  
  7136. wevewon:
  7137.  
  7138.  move.w #$f,$dff000+dmacon
  7139.  
  7140.  bsr EnergyBar
  7141.  
  7142.  cmp.b #'n',mors
  7143.  bne.s .nonextlev
  7144.  add.w #1,MAXLEVEL
  7145.  st FINISHEDLEVEL
  7146.  
  7147.  cmp.w #16,MAXLEVEL
  7148.  bne .nonextlev
  7149.  
  7150.  jmp ENDGAMESCROLL
  7151. .nonextlev:
  7152.  
  7153.  move.l #welldone,mt_data
  7154.  st UseAllChannels
  7155.  clr.b reachedend
  7156.  
  7157.  jsr mt_init
  7158. playwelldone:
  7159.  move.l #$dff000,a6
  7160. waitfortop3:
  7161.  btst.b #0,intreqrl(a6)
  7162.  beq waitfortop3
  7163.  move.w #$1,intreq(a6)
  7164.  
  7165.  jsr mt_music
  7166.  
  7167.  tst.b reachedend
  7168.  beq.s playwelldone
  7169.  
  7170. wevelost:
  7171.  
  7172.  PROTICHECK a0
  7173.  
  7174.  jmp closeeverything 
  7175.  
  7176. endnomusic
  7177.  clr.b doanything
  7178.  
  7179.  
  7180. ; cmp.b #'b',Prefsfile+3
  7181. ; bne.s .noback
  7182. ; jsr mt_end
  7183. ;.noback
  7184. *******************************
  7185. ; cmp.b #'n',mors
  7186. ; bne.s .nonextlev
  7187. ; cmp.w #15,MAXLEVEL
  7188. ; bge.s .nonextlev
  7189. ; add.w #1,MAXLEVEL
  7190. ; st FINISHEDLEVEL
  7191. ;.nonextlev:
  7192. ******************************
  7193.  
  7194.  jmp closeeverything
  7195.  
  7196. do32:
  7197.  move.w #31,d7
  7198.  move.w #$180,d1
  7199. across:
  7200.  move.w d1,(a1)+
  7201.  move.w d1,(a3)+
  7202.  move.w #0,(a1)+ 
  7203.  move.w #0,(a3)+
  7204.  add.w #2,d1
  7205.  dbra d7,across
  7206.  rts
  7207.  
  7208. ;string:
  7209. ;    dc.b    'credits',0
  7210.  
  7211. ENDGAMESCROLL:
  7212.  
  7213.  move.w #$fff,MIXCOLL
  7214.  
  7215.  move.w #$1cc1,BOTOFTXT
  7216.  
  7217.  jsr CLRTWEENSCRN
  7218.  
  7219.  move.l #TEXTCOP,$dff080
  7220.  
  7221.  move.l #ENDGAMETEXTy,a0
  7222.  
  7223.  
  7224. SCROLLUP16LINES:
  7225.  
  7226.  move.w #15,d0
  7227.  
  7228. do16
  7229.  move.l #$dff000,a6
  7230.  
  7231.  move.w #0,d6
  7232.  move.w #7,d7
  7233.  
  7234.  move.l #SCROLLSHADES,a5
  7235.  
  7236. fadeupp:
  7237.  
  7238.  move.w (a5,d6.w*2),TOPCOLL
  7239.  move.w (a5,d7.w*2),TXTCOLL
  7240.  
  7241.  
  7242. .wtup
  7243.  btst #5,intreqrl(a6)
  7244.  beq.s .wtup
  7245.  move.w #$20,intreq(a6)
  7246.  
  7247.  add.w #1,d6
  7248.  sub.w #1,d7
  7249.  bne fadeupp
  7250.  
  7251. .wtup2
  7252.  btst #5,intreqrl(a6)
  7253.  beq.s .wtup2
  7254.  move.w #$20,intreq(a6)
  7255.  
  7256.  move.w #0,TOPCOLL
  7257.  move.w #$fff,TXTCOLL
  7258.  
  7259.  WB
  7260.  
  7261.  move.l TEXTSCRN,d1
  7262.  move.l d1,bltdpt(a6)
  7263.  add.l #80,d1
  7264.  move.l d1,bltapt(a6)
  7265.  move.w #$09f0,bltcon0(a6)
  7266.  move.w #$0,bltcon1(a6)
  7267.  move.w #0,bltdmod(a6)
  7268.  move.w #0,bltamod(a6)
  7269.  move.l #-1,bltafwm(a6)
  7270.  
  7271.  move.w #255*64+40,bltsize(a6)
  7272.  
  7273.  WB
  7274.  
  7275.  dbra d0,do16
  7276.  
  7277.  move.l TEXTSCRN,a1
  7278.  move.w #15,d0
  7279.  jsr DRAWLINEOFTEXT
  7280.  
  7281.  add.l #82,a0
  7282.  cmp.l #ENDENDGAMETEXT,a0
  7283.  blt SCROLLUP16LINES
  7284.  
  7285.  move.l #ENDGAMETEXTy,a0
  7286.  bra SCROLLUP16LINES
  7287.  
  7288. SCROLLSHADES:
  7289.  dc.w 0
  7290.  dc.w $333
  7291.  dc.w $666
  7292.  dc.w $888
  7293.  dc.w $aaa
  7294.  dc.w $ccc
  7295.  dc.w $ddd
  7296.  dc.w $eee
  7297.  
  7298. ENDGAMETEXTy:
  7299. ;          12345678901234567890123456789012345678901234567890123456789012345678901234567890
  7300.  dc.b 0,0,"                                                                                "
  7301.  dc.b 0,1,"As the beast and its four servants die, a breathless silence falls, broken      "
  7302.  dc.b 0,1,"only by the hammering of my own heart in my chest.                              "
  7303.  dc.b 0,1,"I run to the now open exit, and out into the maze of corridors through which I  "
  7304.  dc.b 0,1,"came. I encounter many, many aliens, lying twitching on the ground, or utterly  "
  7305.  dc.b 0,1,"still with glazed eyes and green froth drying on their lips. Many seem to have  "
  7306.  dc.b 0,1,"turned their weapons on themselves, unable to bear either the pain or the       "
  7307.  dc.b 0,1,"sudden silence in their minds.                                                  "
  7308.  dc.b 0,0,"                                                                                "
  7309.  dc.b 0,1,"It takes me several hours to locate a working teleport to take me back aboard   "
  7310.  dc.b 0,1,"the orbiting alien ship. The scene there is the same; hordes of aliens, either  "
  7311.  dc.b 0,1,"dead or catatonic, I cannot tell.                                               "
  7312.  dc.b 0,1,"I walk slowly, exhausted, back to the INDOMITABLE, averting my eyes from the    "
  7313.  dc.b 0,1,"pitiful scenes around me. I know that my work is not finished yet.              "
  7314.  dc.b 0,1,"Once aboard, I make my way to the bridge. I manage to restart the main power    "
  7315.  dc.b 0,1,"generators and get basic navigation back on-line. Working from the memories     "
  7316.  dc.b 0,1,"implanted by the dying marine, I painstakingly program the computer to deal     "
  7317.  dc.b 0,1,"the killing blow to the enemy. At last the task is finished. The ship hums into "
  7318.  dc.b 0,1,"life, accellerating slowly out of orbit, towing the massive alien craft and     "
  7319.  dc.b 0,1,"its mindless cargo behind it.                                                   "
  7320.  dc.b 0,1,"As the image of the alien sun grows in the viewscreen, I think about what I     "
  7321.  dc.b 0,1,"have seen. Fragments of technology, stolen from civilisations - how long ago?   "
  7322.  dc.b 0,1,"How long since they were exterminated by these parasites? And how many more     "
  7323.  dc.b 0,1,"if they are allowed to continue?                                                "
  7324.  dc.b 0,1,"The sun looms hideously large before me, seeming at the last moment to slip to  "
  7325.  dc.b 0,1,"one side as the cruiser slingshots itself through the immense gravity well,     "
  7326.  dc.b 0,1,"its speed doubling and doubling again. The ship shudders and groans as the      "
  7327.  dc.b 0,1,"ponderous mass of the alien ship tries to tear itself free. I feel a distant    "
  7328.  dc.b 0,1,"twinge of curiosity as to whether it will succeed.                              "
  7329.  dc.b 0,1,"The navigation computer chatters quietly to itself as it makes tiny             "
  7330.  dc.b 0,1,"course corrections, bringing the payload to bear on its target. I only sit,     "
  7331.  dc.b 0,1,"watching blankly as we hurtle back towards the planet. The navicom beeps        "
  7332.  dc.b 0,1,"quietly to signal the blowing of the explosive bolts holding the docking ring.  "
  7333.  dc.b 0,1,"So great is our speed that the alien ship does not receed, but simply vanishes  "
  7334.  dc.b 0,1,"from sight, tracked only on the readouts of the computers in front of me.       "
  7335.  dc.b 0,1,"One readout in particular occupies my attention. Red numbers spin towards zero  "
  7336.  dc.b 0,1,"as my invisible agent of destruction spins towards oblivion. Three digits, now  "
  7337.  dc.b 0,1,"two, and now only one. I shift my attention to the image of the alien world,    "
  7338.  dc.b 0,1,"receeding behind my ship.                                                       "
  7339.  dc.b 0,0,"                                                                                "
  7340.  dc.b 0,1,"Three...                                                                        "
  7341.  dc.b 0,0,"                                                                                "
  7342.  dc.b 0,1,"Two...                                                                          "
  7343.  dc.b 0,0,"                                                                                "
  7344.  dc.b 0,1,"One...                                                                          "
  7345.  dc.b 0,0,"                                                                                "
  7346.  dc.b 0,1,"Zero.                                                                           "
  7347.  dc.b 0,0,"                                                                                "
  7348.  dc.b 0,0,"                                                                                "
  7349.  dc.b 0,0,"                                                                                "
  7350.  dc.b 0,0,"                                                                                "
  7351.  dc.b 0,1,"Travelling at nearly a quarter of the speed of light, the alien ship smashed    "
  7352.  dc.b 0,1,"into the planet, flashing past the useless orbital defences which should have   "
  7353.  dc.b 0,1,"neutralized it millions of miles earlier. It passed through the twenty miles    "
  7354.  dc.b 0,1,"of atmosphere in a little more than one ten-thousandth of a second. The air     "
  7355.  dc.b 0,1,"directly beneath had no time to be pushed out of the way, and in another        "
  7356.  dc.b 0,1,"tenth of a second it was a molecule-thick layer a thousand miles below the      "
  7357.  dc.b 0,1,"planet's surface.                                                               "
  7358.  dc.b 0,1,"Such was the heat and pressure caused by the impact, that part of the molten    "
  7359.  dc.b 0,1,"core of the planet underwent nuclear fusion, vapourising thousands of billions  "
  7360.  dc.b 0,1,"of tonnes of surrounding material. This expanding superhot plasma cloud forced  "
  7361.  dc.b 0,1,"its way up through the mantle and crust, fracturing the surface of the planet,  "
  7362.  dc.b 0,1,"blowing continent-sized chunks into space and heating the tortured atmosphere   "
  7363.  dc.b 0,1,"to ignition point. Within two minutes of impact, the doomed planet was a        "
  7364.  dc.b 0,1,"misshapen, incandescent ball, with burning fragments spinning deceptively       "
  7365.  dc.b 0,1,"slowly in their brief orbits before re-impacting with fantastic, majestic       "
  7366.  dc.b 0,1,"force.                                                                          "
  7367.  dc.b 0,0,"                                                                                "
  7368.  dc.b 0,0,"                                                                                "
  7369.  dc.b 0,0,"                                                                                "
  7370.  dc.b 0,0,"                                                                                "
  7371.  dc.b 0,1,"In a matter of weeks, the small amount of matter which had undergone fusion     "
  7372.  dc.b 0,1,"burned itself out, but the planet still glowed sullenly from a million cracks   "
  7373.  dc.b 0,1,"and holes in the crust, as it would continue to do for millions of years to     "
  7374.  dc.b 0,1,"come. The world was barren and dead, and the creatures who once roamed its      "
  7375.  dc.b 0,1,"surface no more than a memory in the mind of one man, sleeping dreamlessly      "
  7376.  dc.b 0,1,"as the invisible speck of his ship sped silently on, towards home.              "
  7377.  dc.b 0,0,"                                                                                "
  7378.  dc.b 0,0,"                                                                                "
  7379.  dc.b 0,0,"                                                                                "
  7380.  dc.b 0,0,"                                                                                "
  7381.  dc.b 0,0,"                                                                                "
  7382.  dc.b 0,0,"                                                                                "
  7383.  dc.b 0,0,"                                                                                "
  7384.  dc.b 0,0,"                                                                                "
  7385.  dc.b 0,0,"                                                                                "
  7386.  dc.b 0,0,"                                                                                "
  7387.  dc.b 0,0,"                                                                                "
  7388.  dc.b 0,0,"                                                                                "
  7389.  dc.b 0,0,"                                                                                "
  7390.  dc.b 0,0,"                                                                                "
  7391.  dc.b 0,0,"                                                                                "
  7392.  dc.b 0,0,"                                                                                "
  7393.  dc.b 0,1,"ALIEN BREED 3D II                                                               "
  7394.  dc.b 0,1,"THE KILLING GROUNDS                                                             "
  7395.  dc.b 0,0,"                                                                                "
  7396.  dc.b 0,0,"                                                                                "
  7397.  dc.b 0,1,"A Team 17 Game                                                                  "
  7398.  dc.b 0,0,"                                                                                "
  7399.  dc.b 0,1,"Produced in association with OCEAN Software                                     "
  7400.  dc.b 0,0,"                                                                                "
  7401.  dc.b 0,0,"                                                                                "
  7402.  dc.b 0,1,"Game Design, Game Code, Editor Code and In-Game Text                            "
  7403.  dc.b 0,0,"                                                                                "
  7404.  dc.b 0,1,"Andrew Clitheroe                                                                "
  7405.  dc.b 0,0,"                                                                                "
  7406.  dc.b 0,0,"                                                                                "
  7407.  dc.b 0,1,"Graphics                                                                        "
  7408.  dc.b 0,0,"                                                                                "
  7409.  dc.b 0,1,"Michael Green                                                                   "
  7410.  dc.b 0,0,"                                                                                "
  7411.  dc.b 0,0,"                                                                                "
  7412.  dc.b 0,1,"3D Object Designs, 3D Editors, Serial and OS code                               "
  7413.  dc.b 0,0,"                                                                                "
  7414.  dc.b 0,1,"Charles Blessing                                                                "
  7415.  dc.b 0,0,"                                                                                "
  7416.  dc.b 0,0,"                                                                                "
  7417.  dc.b 0,1,"Music                                                                           "
  7418.  dc.b 0,0,"                                                                                "
  7419.  dc.b 0,1,"Ben Chanter                                                                     "
  7420.  dc.b 0,0,"                                                                                "
  7421.  dc.b 0,0,"                                                                                "
  7422.  dc.b 0,1,"Project Manager                                                                 "
  7423.  dc.b 0,0,"                                                                                "
  7424.  dc.b 0,1,"Phil Quirke-Webster                                                             "
  7425.  dc.b 0,0,"                                                                                "
  7426.  dc.b 0,0,"                                                                                "
  7427.  dc.b 0,1,"Playtesting                                                                     "
  7428.  dc.b 0,0,"                                                                                "
  7429.  dc.b 0,1,"Phil and the Wolves                                                             "
  7430.  dc.b 0,0,"                                                                                "
  7431.  dc.b 0,0,"                                                                                "
  7432.  dc.b 0,1,"Additional Graphics                                                             "
  7433.  dc.b 0,0,"                                                                                "
  7434.  dc.b 0,1,"Pete Lyons                                                                      "
  7435.  dc.b 0,0,"                                                                                "
  7436.  dc.b 0,0,"                                                                                "
  7437.  
  7438.  
  7439. ENDENDGAMETEXT:
  7440.  
  7441.  
  7442. ;
  7443. ;    move.l    4.w,a6
  7444. ;    move.l    #string,d1
  7445. ;    moveq    #0,d2
  7446. ;    moveq    #0,d3
  7447. ;    jsr    _LVOExecute(a6)
  7448.  
  7449. ; include "endscroll.s"
  7450.  
  7451. ***********************************
  7452.  include "ab3:source_4000/CD32JOY"
  7453.  
  7454.  
  7455.  
  7456. *************************************
  7457. * Set left and right clip values
  7458. *************************************
  7459.  
  7460.  
  7461.  
  7462. NEWsetlclip:
  7463.  move.l #OnScreen,a1
  7464.  move.l #Rotated,a2
  7465.  move.l CONNECT_TABLE,a3
  7466.  move.l Points,a4
  7467.  
  7468.  move.w (a0),d0
  7469.  bge.s .notignoreleft
  7470.  
  7471. ; move.l #0,(a6)
  7472.  
  7473.  bra .leftnotoktoclip
  7474. .notignoreleft:
  7475.  
  7476.  move.w 6(a2,d0*8),d3    ; left z val
  7477.  bgt.s .leftclipinfront
  7478.  addq #2,a0
  7479.  rts
  7480.  
  7481.  tst.w 6(a2,d0*8)
  7482.  bgt.s .leftnotoktoclip
  7483. .ignoreboth:
  7484. ; move.l #0,(a6)
  7485. ; move.l #96*65536,4(a6)
  7486.  move.w #0,leftclip
  7487.  move.w RIGHTX,rightclip
  7488.  addq #8,a6
  7489.  addq #2,a0
  7490.  rts
  7491.  
  7492. .leftclipinfront:
  7493.  move.w (a1,d0*2),d1    ; left x on screen
  7494.  move.w (a0),d2
  7495.  move.w 2(a3,d2.w*4),d2
  7496.  move.w (a1,d2.w*2),d2
  7497.  cmp.w d1,d2
  7498.  bgt.s .leftnotoktoclip
  7499.  
  7500.  
  7501. *************************************
  7502.  
  7503. ; move.w 2(a3,d0.w*4),d6
  7504. ; 
  7505. ; move.w (a4,d0.w*4),d2
  7506. ; move.w 2(a4,d0.w*4),d3
  7507. ; move.w (a4,d6.w*4),d4
  7508. ; move.w 2(a4,d6.w*4),d5
  7509. ;
  7510. ; sub.w d2,d4    ;dx
  7511. ; sub.w d3,d5    ;dz
  7512. ; move.w xoff,d0
  7513. ; move.w zoff,d6
  7514. ; 
  7515. ; sub.w d2,d0
  7516. ; sub.w d3,d6
  7517. ; 
  7518. ; muls d0,d4
  7519. ; muls d6,d5
  7520. ; add.l d4,d5
  7521. ; bge.s .leftnotoktoclip
  7522.  
  7523. *************************************
  7524.  
  7525.  
  7526.  
  7527. ; move.w d1,(a6)
  7528. ; move.w d3,2(a6)
  7529.  cmp.w leftclip,d1
  7530.  ble.s .leftnotoktoclip
  7531.  move.w d1,leftclip
  7532. .leftnotoktoclip:
  7533.  
  7534.  addq #2,a0
  7535.  
  7536.  rts
  7537.  
  7538. NEWsetrclip
  7539.  move.l #OnScreen,a1
  7540.  move.l #Rotated,a2
  7541.  move.l CONNECT_TABLE,a3
  7542.  move.w (a0),d0
  7543.  bge.s .notignoreright
  7544. ; move.w #96,4(a6)
  7545. ; move.w #0,6(a6)
  7546.  move.w #0,d4
  7547.  bra .rightnotoktoclip
  7548. .notignoreright:
  7549.  move.w 6(a2,d0*8),d4    ; right z val
  7550.  bgt.s .rightclipinfront
  7551. ; move.w #96,4(a6)
  7552. ; move.w #0,6(a6)
  7553.  bra.s .rightnotoktoclip
  7554.  
  7555. .rightclipinfront:
  7556.  move.w (a1,d0*2),d1    ; right x on screen
  7557.  move.w (a0),d2
  7558.  move.w (a3,d2.w*4),d2
  7559.  move.w (a1,d2.w*2),d2
  7560.  cmp.w d1,d2
  7561.  blt.s .rightnotoktoclip
  7562. ; move.w d1,4(a6)
  7563. ; move.w d4,6(a6)
  7564.  
  7565.  
  7566. *************************************
  7567.  
  7568. ; move.w (a3,d0.w*4),d6
  7569. ; 
  7570. ; move.w (a4,d0.w*4),d2
  7571. ; move.w 2(a4,d0.w*4),d3
  7572. ; move.w (a4,d6.w*4),d4
  7573. ; move.w 2(a4,d6.w*4),d5
  7574. ;
  7575. ; sub.w d2,d4    ;dx
  7576. ; sub.w d3,d5    ;dz
  7577. ; move.w xoff,d0
  7578. ; move.w zoff,d6
  7579. ; 
  7580. ; sub.w d2,d0
  7581. ; sub.w d3,d6
  7582. ; 
  7583. ; muls d0,d4
  7584. ; muls d6,d5
  7585. ; add.l d4,d5
  7586. ; ble.s .rightnotoktoclip
  7587.  
  7588. *************************************
  7589.  
  7590.  
  7591.  
  7592.  cmp.w rightclip,d1
  7593.  bge.s .rightnotoktoclip
  7594.  addq #1,d1
  7595.  move.w d1,rightclip
  7596. .rightnotoktoclip:
  7597.  addq #8,a6
  7598.  addq #2,a0
  7599.  rts
  7600.  
  7601. FIRSTsetlrclip:
  7602.  move.l #OnScreen,a1
  7603.  move.l #Rotated,a2
  7604.  
  7605.  move.w (a0)+,d0
  7606.  bge.s .notignoreleft
  7607.  bra .leftnotoktoclip
  7608. .notignoreleft:
  7609.  
  7610.  move.w 6(a2,d0*8),d3    ; left z val
  7611.  bgt.s .leftclipinfront
  7612.  
  7613.  move.w (a0),d0
  7614.  blt.s .ignoreboth
  7615.  tst.w 6(a2,d0*8)
  7616.  bgt.s .leftnotoktoclip
  7617. .ignoreboth
  7618.  move.w RIGHTX,rightclip
  7619.  move.w #0,leftclip
  7620.  addq #2,a0
  7621.  rts
  7622.  
  7623. .leftclipinfront:
  7624.  move.w (a1,d0*2),d1    ; left x on screen
  7625.  cmp.w leftclip,d1
  7626.  ble.s .leftnotoktoclip
  7627.  move.w d1,leftclip
  7628. .leftnotoktoclip:
  7629.  
  7630.  move.w (a0)+,d0
  7631.  bge.s .notignoreright
  7632.  move.w #0,d4
  7633.  bra .rightnotoktoclip
  7634. .notignoreright:
  7635.  move.w 6(a2,d0*8),d4    ; right z val
  7636.  ble.s .rightnotoktoclip
  7637.  
  7638. .rightclipinfront:
  7639.  move.w (a1,d0*2),d1    ; right x on screen
  7640.  addq #1,d1
  7641.  cmp.w rightclip,d1
  7642.  bge.s .rightnotoktoclip
  7643.  move.w d1,rightclip
  7644. .rightnotoktoclip:
  7645.  
  7646. ; move.w leftclip,d0
  7647. ; move.w rightclip,d1
  7648. ; cmp.w d0,d1
  7649. ; bge.s .noswap
  7650. ; move.w #192,rightclip
  7651. ; move.w #0,leftclip
  7652. ;.noswap:
  7653.  
  7654.  rts
  7655.  
  7656.  
  7657. leftclip2: dc.w 0
  7658. rightclip2: dc.w 0
  7659. ZoneBright: dc.w 0
  7660.  
  7661. npolys: dc.w 0
  7662.  
  7663. PLR1_fire: dc.b 0
  7664. PLR2_fire: dc.b 0
  7665.  
  7666. *****************************************************
  7667.  
  7668.  
  7669. pastdata:
  7670. ***********************************
  7671. * This routine animates brightnesses.
  7672.  
  7673.  
  7674. liftpt: dc.l liftanimtab
  7675.  
  7676. brightpt:
  7677.  dc.l brightanimtab
  7678.  
  7679.  
  7680. liftanim:
  7681.  rts
  7682.  
  7683. ******************************
  7684.  include "ab3:source_4000/ObjectMove"
  7685.  include "ab3:source_4000/newAnims"
  7686.  include "ab3:source_4000/airoutine.s"
  7687. ******************************
  7688. startpass:
  7689. ; include "ab3:source_4000/password_reloc.s"
  7690. endpass:
  7691.  
  7692. rotanimpt: dc.w 0
  7693. xradd: dc.w 5
  7694. yradd: dc.w 8
  7695. xrpos: dc.w 320
  7696. yrpos: dc.w 320
  7697.  
  7698. rotanim:
  7699.  rts
  7700.  
  7701. option:
  7702.  dc.l 0,0
  7703.  
  7704. ********** WALL STUFF *******************************
  7705.  
  7706.  include "AB3:source_4000/hireswall.s"
  7707.  include "AB3:source_4000/hiresgourwall.s"
  7708.  
  7709. *****************************************************
  7710.  
  7711. ******************************************
  7712. * floor polygon
  7713.  
  7714. numsidestd: dc.w 0
  7715. bottomline: dc.w 0
  7716.  
  7717. checkforwater:
  7718.  tst.b usewater
  7719.  beq.s .notwater
  7720.  
  7721.  move.l Roompt,a1
  7722.  move.w (a1),d7
  7723.  cmp.w currzone,d7
  7724.  bne.s .notwater
  7725.  
  7726.  move.b #$f,fillscrnwater
  7727.  
  7728. .notwater:
  7729.  move.w (a0)+,d6    ; sides-1
  7730.  add.w d6,d6
  7731.  add.w d6,a0
  7732.  add.w #4+6,a0
  7733.  rts
  7734.  
  7735.  rts
  7736.  
  7737. ;NewCornerBuff:
  7738. ; ds.l 100
  7739. CLRNOFLOOR: dc.w 0
  7740.  
  7741. itsafloordraw:
  7742.  
  7743. * If D0 =1 then its a floor otherwise (=2) it's
  7744. * a roof.
  7745.  
  7746.  move.w #0,above
  7747.  move.w (a0)+,d6    ; ypos of poly
  7748.  
  7749.  tst.b usewater
  7750.  beq.s .oknon
  7751.  tst.b DOANYWATER
  7752.  beq dontdrawreturn
  7753. .oknon
  7754.  
  7755.  move.w d6,d7
  7756.  ext.l d7
  7757.  asl.l #6,d7
  7758.  cmp.l TOPOFROOM,d7
  7759.  blt checkforwater
  7760.  cmp.l BOTOFROOM,d7
  7761.  bgt.s dontdrawreturn
  7762.  
  7763.  move.w leftclip,d7
  7764.  cmp.w rightclip,d7
  7765.  bge.s dontdrawreturn
  7766.  
  7767.  sub.w flooryoff,d6
  7768.  bgt.s below
  7769.  blt.s aboveplayer
  7770.  
  7771.  tst.b usewater
  7772.  beq.s .notwater
  7773.  
  7774.  move.l Roompt,a1
  7775.  move.w (a1),d7
  7776.  cmp.w currzone,d7
  7777.  
  7778.  bne.s .notwater
  7779.  
  7780.  st fillscrnwater
  7781.  
  7782. .notwater:
  7783.  
  7784.  
  7785. dontdrawreturn:
  7786.  move.w (a0)+,d6    ; sides-1
  7787.  add.w d6,d6
  7788.  add.w d6,a0
  7789.  add.w #4+6,a0
  7790.  rts
  7791. aboveplayer:
  7792.  
  7793.  tst.b usewater
  7794.  beq.s .notwater
  7795.  
  7796.  move.l Roompt,a1
  7797.  move.w (a1),d7
  7798.  cmp.w currzone,d7
  7799.  bne.s .notwater
  7800.  
  7801.  move.b #$f,fillscrnwater
  7802.  
  7803. .notwater:
  7804.  
  7805.  btst #1,d0
  7806.  beq.s dontdrawreturn
  7807.  move.w MIDDLEY,d7
  7808.  sub.w topclip,d7 
  7809.  ble.s dontdrawreturn
  7810.  move.w #1,d0
  7811.  move.w d0,above
  7812.  neg.w d6
  7813.  bra.s notbelow
  7814. below:
  7815.  move.w botclip,d7
  7816.  sub.w MIDDLEY,d7
  7817.  ble.s dontdrawreturn
  7818. notbelow:
  7819.  btst #0,d0
  7820.  beq.s dontdrawreturn
  7821.  move.w d6,distaddr
  7822.  muls #64,d6
  7823.  move.l d6,ypos
  7824.  ext.l d7
  7825.  divs.l d7,d6        ; zpos of bottom
  7826.             ; visible line
  7827.  
  7828.  beq dontdrawreturn
  7829.  
  7830.  cmp.l #32767,d6
  7831.  bgt dontdrawreturn
  7832.             
  7833.  move.w d6,minz
  7834.  move.w d7,bottomline
  7835.  
  7836. ; Go round each point finding out
  7837. ; if it should be visible or not.
  7838.  
  7839.  move.l a0,-(a7)
  7840.  
  7841.  move.w (a0)+,d7    ; number of sides
  7842.  move.l #Rotated,a1
  7843.  move.l #OnScreen,a2
  7844. ; move.l #NewCornerBuff,a3
  7845.  moveq #0,d4
  7846.  moveq #0,d5
  7847.  moveq #0,d6
  7848.  clr.b anyclipping
  7849.  
  7850. cornerprocessloop:
  7851.  
  7852.  move.w (a0)+,d0
  7853.  and.w #$fff,d0
  7854.  move.w 6(a1,d0.w*8),d1
  7855.  ble  .canttell
  7856.  
  7857.  move.w (a2,d0.w*2),d3
  7858.  cmp.w leftclip,d3
  7859.  bgt.s .nol
  7860.  st d4
  7861.  st anyclipping
  7862.  bra.s .nos
  7863. .nol:
  7864.  cmp.w rightclip,d3
  7865.  blt.s .nor
  7866.  st d6
  7867.  st anyclipping
  7868.  bra.s .nos
  7869. .nor:
  7870.  st d5
  7871. .nos:
  7872.  bra .cantell
  7873.  
  7874. .canttell:
  7875.  st d5
  7876.  st anyclipping
  7877.  
  7878. .cantell:
  7879.  
  7880.  
  7881.  dbra d7,cornerprocessloop
  7882.  
  7883.  
  7884.  move.l (a7)+,a0
  7885.  tst.b d5
  7886.  bne.s somefloortodraw
  7887.  eor.b d4,d6
  7888.  bne dontdrawreturn
  7889.  
  7890. somefloortodraw:
  7891.  
  7892.  tst.b gourfloor
  7893.  bne goursides
  7894.  
  7895.  move.w #300,top
  7896.  move.w #-1,bottom
  7897.  move.w #0,drawit
  7898.  move.l #Rotated,a1
  7899.  move.l #OnScreen,a2
  7900.  move.w (a0)+,d7    ; no of sides
  7901. sideloop:
  7902.  move.w minz,d6
  7903.  move.w (a0)+,d1
  7904.  move.w (a0),d3
  7905.  and.w #$fff,d1
  7906.  and.w #$fff,d3
  7907.  
  7908.  move.w 6(a1,d1*8),d4    ;first z
  7909.  cmp.w d6,d4
  7910.  bgt firstinfront
  7911.  move.w 6(a1,d3*8),d5    ; sec z
  7912.  cmp.w d6,d5
  7913.  ble bothbehind
  7914. ** line must be on left and partially behind.
  7915.  sub.w d5,d4
  7916.  move.l (a1,d1*8),d0
  7917.  sub.l (a1,d3*8),d0
  7918.  asr.l #7,d0
  7919.  sub.w d5,d6
  7920.  muls d6,d0    ; new x coord
  7921.  divs d4,d0
  7922.  ext.l d0
  7923.  asl.l #7,d0
  7924.  
  7925.  add.l (a1,d3*8),d0
  7926.  move.w minz,d4
  7927.  move.w (a2,d3*2),d2
  7928.  divs d4,d0
  7929.  add.w MIDDLEX,d0
  7930.  move.l ypos,d3
  7931.  divs d5,d3
  7932.  move.w bottomline,d1 
  7933.  bra lineclipped
  7934.  
  7935. firstinfront:
  7936.  move.w 6(a1,d3*8),d5    ; sec z
  7937.  cmp.w d6,d5
  7938.  bgt bothinfront
  7939. ** line must be on right and partially behind.
  7940.  sub.w d4,d5    ; dz
  7941.  move.l (a1,d3*8),d2
  7942.  sub.l (a1,d1*8),d2    ; dx
  7943.  sub.w d4,d6
  7944.  asr.l #7,d2
  7945.  muls d6,d2    ; new x coord
  7946.  divs d5,d2
  7947.  ext.l d2
  7948.  asl.l #7,d2
  7949.  add.l (a1,d1*8),d2
  7950.  move.w minz,d5
  7951.  move.w (a2,d1*2),d0
  7952.  divs d5,d2
  7953.  add.w MIDDLEX,d2
  7954.  move.l ypos,d1
  7955.  divs d4,d1
  7956.  move.w bottomline,d3 
  7957.  bra lineclipped
  7958.  
  7959. bothinfront:
  7960.  
  7961. * Also, usefully enough, both are on-screen
  7962. * so no bottom clipping is needed.
  7963.  
  7964.  move.w (a2,d1*2),d0    ; first x
  7965.  move.w (a2,d3*2),d2    ; second x
  7966.  move.l ypos,d1
  7967.  move.l d1,d3
  7968.  divs d4,d1        ; first y
  7969.  divs d5,d3        ; second y
  7970. lineclipped:
  7971.  move.l #rightsidetab,a3
  7972.  cmp.w d1,d3
  7973.  beq lineflat
  7974.  st drawit
  7975.  bgt lineonright
  7976.  move.l #leftsidetab,a3
  7977.  exg d1,d3
  7978.  exg d0,d2
  7979.  
  7980.  lea (a3,d1*2),a3
  7981.  
  7982.  cmp.w top(pc),d1
  7983.  bge.s .nonewtop
  7984.  move.w d1,top
  7985. .nonewtop:
  7986.  cmp.w bottom(pc),d3
  7987.  ble.s .nonewbot
  7988.  move.w d3,bottom
  7989. .nonewbot:
  7990.  
  7991.  sub.w d1,d3    ; dy
  7992.  sub.w d0,d2    ; dx
  7993.  
  7994.  blt .linegoingleft
  7995.  
  7996.  ext.l d2
  7997.  divs d3,d2
  7998.  move.w d2,d6
  7999.  swap d2
  8000.  
  8001. ; moveq #0,d6
  8002. ; sub.w d3,d2
  8003. ; blt.s .noco
  8004. ;.makeco
  8005. ; addq #1,d6
  8006. ; sub.w d3,d2
  8007. ; bge.s .makeco
  8008. ;.noco
  8009. ; add.w d3,d2
  8010.  
  8011.  move.w d3,d4
  8012.  move.w d3,d5
  8013.  subq #1,d5
  8014.  move.w d6,d1
  8015.  addq #1,d1
  8016.  
  8017. .pixlopright:
  8018.  move.w d0,(a3)+
  8019.  sub.w d2,d4
  8020.  bge.s .nobigstep
  8021.  add.w d1,d0
  8022.  add.w d3,d4
  8023.  dbra d5,.pixlopright
  8024.  bra lineflat
  8025. .nobigstep
  8026.  add.w d6,d0
  8027.  dbra d5,.pixlopright
  8028.  bra lineflat
  8029.  
  8030. .linegoingleft:
  8031.  
  8032.  neg.w d2
  8033.  
  8034.  ext.l d2
  8035.  divs d3,d2
  8036.  move.w d2,d6
  8037.  swap d2
  8038.  
  8039.  
  8040. ; moveq #0,d6
  8041. ; sub.w d3,d2
  8042. ; blt.s .nocol
  8043. ;.makecol
  8044. ; addq #1,d6
  8045. ; sub.w d3,d2
  8046. ; bge.s .makecol
  8047. ;.nocol
  8048. ; add.w d3,d2
  8049.  
  8050.  
  8051.  
  8052.  move.w d3,d4
  8053.  move.w d3,d5
  8054.  subq #1,d5
  8055.  
  8056.  move.w d6,d1
  8057.  addq #1,d1
  8058.  
  8059. .pixlopleft:
  8060.  sub.w d2,d4
  8061.  bge.s .nobigstepl
  8062.  sub.w d1,d0
  8063.  add.w d3,d4
  8064.  move.w d0,(a3)+
  8065.  dbra d5,.pixlopleft
  8066.  bra lineflat
  8067.  
  8068. .nobigstepl
  8069.  sub.w d6,d0
  8070.  move.w d0,(a3)+
  8071.  dbra d5,.pixlopleft
  8072.  bra lineflat
  8073.  
  8074. lineonright:
  8075.  
  8076.  lea (a3,d1*2),a3
  8077.  
  8078.  cmp.w top(pc),d1
  8079.  bge.s .nonewtop
  8080.  move.w d1,top
  8081. .nonewtop:
  8082.  cmp.w bottom(pc),d3
  8083.  ble.s .nonewbot
  8084.  move.w d3,bottom
  8085. .nonewbot:
  8086.  
  8087.  sub.w d1,d3    ; dy
  8088.  sub.w d0,d2    ; dx
  8089.  blt .linegoingleft
  8090. ; addq #1,d0
  8091.  ext.l d2
  8092.  divs d3,d2
  8093.  move.w d2,d6
  8094.  swap d2
  8095.  
  8096. ; moveq #0,d6
  8097. ; sub.w d3,d2
  8098. ; blt.s .noco
  8099. ;.makeco
  8100. ; addq #1,d6
  8101. ; sub.w d3,d2
  8102. ; bge.s .makeco
  8103. ;.noco
  8104. ; add.w d3,d2
  8105.  
  8106.  move.w d3,d4
  8107.  move.w d3,d5
  8108.  subq #1,d5
  8109.  move.w d6,d1
  8110.  addq #1,d1
  8111.  
  8112. .pixlopright:
  8113.  sub.w d2,d4
  8114.  bge.s .nobigstep
  8115.  add.w d1,d0
  8116.  add.w d3,d4
  8117.  move.w d0,(a3)+
  8118.  dbra d5,.pixlopright
  8119.  bra lineflat
  8120.  
  8121. .nobigstep
  8122.  add.w d6,d0
  8123.  move.w d0,(a3)+
  8124.  dbra d5,.pixlopright
  8125.  bra lineflat
  8126.  
  8127. .linegoingleft:
  8128. ; addq #1,d0
  8129.  neg.w d2
  8130.  
  8131.  ext.l d2
  8132.  divs d3,d2
  8133.  move.w d2,d6
  8134.  swap d2
  8135.  
  8136.  
  8137. ; moveq #0,d6
  8138. ; sub.w d3,d2
  8139. ; blt.s .nocol
  8140. ;.makecol
  8141. ; addq #1,d6
  8142. ; sub.w d3,d2
  8143. ; bge.s .makecol
  8144. ;.nocol
  8145. ; add.w d3,d2
  8146.  
  8147.  move.w d3,d4
  8148.  move.w d3,d5
  8149.  subq #1,d5
  8150.  move.w d6,d1
  8151.  addq #1,d1
  8152.  
  8153. .pixlopleft:
  8154.  move.w d0,(a3)+
  8155.  sub.w d2,d4
  8156.  bge.s .nobigstepl
  8157.  sub.w d1,d0
  8158.  add.w d3,d4
  8159.  dbra d5,.pixlopleft
  8160.  bra lineflat
  8161.  
  8162. .nobigstepl
  8163.  sub.w d6,d0
  8164.  dbra d5,.pixlopleft
  8165.  
  8166. lineflat:
  8167.  
  8168. bothbehind:
  8169.  dbra d7,sideloop
  8170.  bra pastsides
  8171.  
  8172. fbr: dc.w 0
  8173. sbr: dc.w 0
  8174. FloorPtBrights: dc.l 0
  8175.  
  8176. goursides:
  8177.  
  8178.  move.w #300,top
  8179.  move.w #-1,bottom
  8180.  move.w #0,drawit
  8181.  move.l #Rotated,a1
  8182.  move.l #OnScreen,a2
  8183.  move.w (a0)+,d7    ; no of sides
  8184. sideloopGOUR:
  8185.  move.w minz,d6
  8186.  move.w (a0)+,d1
  8187.  move.w (a0),d3
  8188.  
  8189.  move.w d1,d4
  8190.  move.w d3,d5
  8191.  and.w #$0fff,d1
  8192.  and.w #$0fff,d3
  8193.  
  8194.  rol.w #4,d4
  8195.  rol.w #4,d5
  8196.  and.w #$f,d4
  8197.  and.w #$f,d5
  8198.  
  8199.  move.l FloorPtBrights,a4
  8200.  move.w (a4,d4.w*8),d4
  8201.  bge.s .okpos1
  8202.  neg.w d4
  8203. .okpos1:
  8204.  sub.w #300,d4
  8205.  move.w d4,fbr
  8206.  move.w (a4,d5.w*8),d4
  8207.  bge.s .okpos2
  8208.  neg.w d4
  8209. .okpos2:
  8210.  sub.w #300,d4
  8211.  move.w d4,sbr
  8212.  
  8213.  move.w 6(a1,d1*8),d4    ;first z
  8214.  cmp.w d6,d4
  8215.  bgt firstinfrontGOUR
  8216.  move.w 6(a1,d3*8),d5    ; sec z
  8217.  cmp.w d6,d5
  8218.  ble bothbehindGOUR
  8219. ** line must be on left and partially behind.
  8220.  sub.w d5,d4
  8221.  
  8222.  move.w fbr,d0
  8223.  sub.w sbr,d0
  8224.  sub.w d5,d6
  8225.  muls d6,d0
  8226.  divs d4,d0
  8227.  add.w sbr,d0
  8228.  move.w d0,fbr
  8229.  
  8230.  move.l (a1,d1*8),d0
  8231.  sub.l (a1,d3*8),d0
  8232.  asr.l #7,d0
  8233.  muls d6,d0    ; new x coord
  8234.  divs d4,d0
  8235.  ext.l d0
  8236.  asl.l #7,d0
  8237.  
  8238.  add.l (a1,d3*8),d0
  8239.  move.w minz,d4
  8240.  move.w (a2,d3*2),d2
  8241.  divs d4,d0
  8242.  add.w MIDDLEX,d0
  8243.  move.l ypos,d3
  8244.  divs d5,d3
  8245.  
  8246.  move.w bottomline,d1 
  8247.  bra lineclippedGOUR
  8248.  
  8249. firstinfrontGOUR:
  8250.  move.w 6(a1,d3*8),d5    ; sec z
  8251.  cmp.w d6,d5
  8252.  bgt bothinfrontGOUR
  8253. ** line must be on right and partially behind.
  8254.  sub.w d4,d5    ; dz
  8255.  
  8256.  move.w sbr,d2
  8257.  sub.w fbr,d2
  8258.  sub.w d4,d6
  8259.  muls d6,d2
  8260.  divs d5,d2
  8261.  add.w fbr,d2
  8262.  move.w d2,sbr
  8263.  
  8264.  move.l (a1,d3*8),d2
  8265.  sub.l (a1,d1*8),d2    ; dx
  8266.  asr.l #7,d2
  8267.  muls d6,d2    ; new x coord
  8268.  divs d5,d2
  8269.  ext.l d2
  8270.  asl.l #7,d2
  8271.  add.l (a1,d1*8),d2
  8272.  move.w minz,d5
  8273.  move.w (a2,d1*2),d0
  8274.  divs d5,d2
  8275.  add.w MIDDLEX,d2
  8276.  move.l ypos,d1
  8277.  divs d4,d1
  8278.  move.w bottomline,d3 
  8279.  bra lineclippedGOUR
  8280.  
  8281. bothinfrontGOUR:
  8282.  
  8283. * Also, usefully enough, both are on-screen
  8284. * so no bottom clipping is needed.
  8285.  
  8286.  move.w (a2,d1*2),d0    ; first x
  8287.  move.w (a2,d3*2),d2    ; second x
  8288.  move.l ypos,d1
  8289.  move.l d1,d3
  8290.  divs d4,d1        ; first y
  8291.  divs d5,d3        ; second y
  8292. lineclippedGOUR:
  8293.  move.l #rightsidetab,a3
  8294.  cmp.w d1,d3
  8295.  bne linenotflatGOUR
  8296.  
  8297. ; move.w fbr,d4
  8298. ; move.w sbr,d5
  8299. ; cmp.w d0,d2
  8300. ; bgt.s .nsw
  8301. ; exg d4,d5
  8302. ;.nsw:
  8303.  
  8304. ; move.l #leftbrighttab,a3
  8305. ; move.w d4,(a3,d3.w)
  8306. ; move.l #rightbrighttab,a3
  8307. ; move.w d5,(a3,d3.w) 
  8308.  bra lineflatGOUR
  8309.  
  8310. linenotflatGOUR
  8311.  st drawit
  8312.  bgt lineonrightGOUR
  8313.  move.l #leftsidetab,a3
  8314.  exg d1,d3
  8315.  exg d0,d2
  8316.  
  8317.  lea (a3,d1*2),a3
  8318.  lea leftbrighttab-leftsidetab(a3),a4
  8319.  
  8320.  cmp.w top(pc),d1
  8321.  bge.s .nonewtop
  8322.  move.w d1,top
  8323. .nonewtop:
  8324.  cmp.w bottom(pc),d3
  8325.  ble.s .nonewbot
  8326.  move.w d3,bottom
  8327. .nonewbot:
  8328.  
  8329.  sub.w d1,d3    ; dy
  8330.  sub.w d0,d2    ; dx
  8331.  
  8332.  blt .linegoingleft
  8333.  
  8334.  ext.l d2
  8335.  divs d3,d2
  8336.  move.w d2,d6
  8337.  swap d2
  8338.  move.w d2,a5
  8339.  
  8340. ; moveq #0,d6
  8341. ; sub.w d3,d2
  8342. ; blt.s .noco
  8343. ;.makeco
  8344. ; addq #1,d6
  8345. ; sub.w d3,d2
  8346. ; bge.s .makeco
  8347. ;.noco
  8348. ; add.w d3,d2
  8349.  
  8350.  move.w d3,d4
  8351.  move.w d3,d5
  8352.  subq #1,d5
  8353.  move.w d6,d1
  8354.  addq #1,d1
  8355.  move.w d1,a6
  8356.  
  8357.  moveq #0,d1
  8358.  move.w sbr,d1
  8359.  move.w fbr,d2
  8360.  sub.w d1,d2
  8361.  ext.l d2
  8362.  asl.w #8,d2
  8363.  asl.w #2,d2
  8364.  divs d3,d2 
  8365.  ext.l d2
  8366.  asl.l #6,d2
  8367.  swap d1
  8368.  
  8369. .pixlopright:
  8370.  move.w d0,(a3)+
  8371.  swap d1
  8372.  move.w d1,(a4)+
  8373.  swap d1
  8374.  add.l d2,d1
  8375.  
  8376.  sub.w a5,d4
  8377.  bge.s .nobigstep
  8378.  add.w a6,d0
  8379.  add.w d3,d4
  8380.  dbra d5,.pixlopright
  8381.  bra lineflatGOUR
  8382. .nobigstep
  8383.  
  8384.  add.w d6,d0
  8385.  dbra d5,.pixlopright
  8386.  bra lineflatGOUR
  8387.  
  8388. .linegoingleft:
  8389.  
  8390.  neg.w d2
  8391.  
  8392.  ext.l d2
  8393.  divs d3,d2
  8394.  move.w d2,d6
  8395.  swap d2
  8396.  
  8397.  
  8398. ; moveq #0,d6
  8399. ; sub.w d3,d2
  8400. ; blt.s .nocol
  8401. ;.makecol
  8402. ; addq #1,d6
  8403. ; sub.w d3,d2
  8404. ; bge.s .makecol
  8405. ;.nocol
  8406. ; add.w d3,d2
  8407.  
  8408.  move.w d3,d4
  8409.  move.w d3,d5
  8410.  subq #1,d5
  8411.  
  8412.  move.w d6,d1
  8413.  addq #1,d1
  8414.  move.w d1,a6
  8415.  move.w d2,a5
  8416.  
  8417.  moveq #0,d1
  8418.  move.w sbr,d1
  8419.  move.w fbr,d2
  8420.  sub.w d1,d2
  8421.  ext.l d2
  8422.  asl.w #8,d2
  8423.  asl.w #2,d2
  8424.  divs d3,d2 
  8425.  ext.l d2
  8426.  asl.l #6,d2
  8427.  swap d1
  8428.  
  8429. .pixlopleft:
  8430.  
  8431.  swap d1
  8432.  move.w d1,(a4)+
  8433.  swap d1
  8434.  add.l d2,d1
  8435.  
  8436.  sub.w a5,d4
  8437.  bge.s .nobigstepl
  8438.  sub.w a6,d0
  8439.  add.w d3,d4
  8440.  move.w d0,(a3)+
  8441.  dbra d5,.pixlopleft
  8442.  bra lineflatGOUR
  8443.  
  8444. .nobigstepl
  8445.  sub.w d6,d0
  8446.  move.w d0,(a3)+
  8447.  dbra d5,.pixlopleft
  8448.  bra lineflatGOUR
  8449.  
  8450. lineonrightGOUR:
  8451.  
  8452.  lea (a3,d1*2),a3
  8453.  
  8454.  lea rightbrighttab-rightsidetab(a3),a4
  8455.  
  8456.  cmp.w top(pc),d1
  8457.  bge.s .nonewtop
  8458.  move.w d1,top
  8459. .nonewtop:
  8460.  cmp.w bottom(pc),d3
  8461.  ble.s .nonewbot
  8462.  move.w d3,bottom
  8463. .nonewbot:
  8464.  
  8465.  sub.w d1,d3    ; dy
  8466.  sub.w d0,d2    ; dx
  8467.  blt .linegoingleft
  8468. ; addq #1,d0
  8469.  ext.l d2
  8470.  divs d3,d2
  8471.  move.w d2,d6
  8472.  swap d2
  8473.  
  8474. ; moveq #0,d6
  8475. ; sub.w d3,d2
  8476. ; blt.s .noco
  8477. ;.makeco
  8478. ; addq #1,d6
  8479. ; sub.w d3,d2
  8480. ; bge.s .makeco
  8481. ;.noco
  8482. ; add.w d3,d2
  8483.  
  8484.  move.w d3,d4
  8485.  move.w d3,d5
  8486.  subq #1,d5
  8487.  move.w d6,d1
  8488.  addq #1,d1
  8489.  
  8490.  move.w d1,a6
  8491.  move.w d2,a5
  8492.  
  8493.  moveq #0,d1
  8494.  move.w fbr,d1
  8495.  move.w sbr,d2
  8496.  sub.w d1,d2
  8497.  ext.l d2
  8498.  asl.w #8,d2
  8499.  asl.w #2,d2
  8500.  divs d3,d2 
  8501.  ext.l d2
  8502.  asl.l #6,d2
  8503.  swap d1
  8504.  
  8505. .pixlopright:
  8506.  
  8507.  swap d1
  8508.  move.w d1,(a4)+
  8509.  swap d1
  8510.  add.l d2,d1
  8511.  
  8512.  sub.w a5,d4
  8513.  bge.s .nobigstep
  8514.  add.w a6,d0
  8515.  add.w d3,d4
  8516.  move.w d0,(a3)+
  8517.  dbra d5,.pixlopright
  8518.  bra lineflatGOUR
  8519.  
  8520. .nobigstep
  8521.  add.w d6,d0
  8522.  move.w d0,(a3)+
  8523.  dbra d5,.pixlopright
  8524.  bra lineflatGOUR
  8525.  
  8526. .linegoingleft:
  8527. ; addq #1,d0
  8528.  neg.w d2
  8529.  
  8530.  ext.l d2
  8531.  divs d3,d2
  8532.  move.w d2,d6
  8533.  swap d2
  8534.  
  8535.  
  8536. ; moveq #0,d6
  8537. ; sub.w d3,d2
  8538. ; blt.s .nocol
  8539. ;.makecol
  8540. ; addq #1,d6
  8541. ; sub.w d3,d2
  8542. ; bge.s .makecol
  8543. ;.nocol
  8544. ; add.w d3,d2
  8545.  
  8546.  move.w d3,d4
  8547.  move.w d3,d5
  8548.  subq #1,d5
  8549.  move.w d6,d1
  8550.  addq #1,d1
  8551.  move.w d1,a6
  8552.  move.w d2,a5
  8553.  
  8554.  moveq #0,d1
  8555.  move.w fbr,d1
  8556.  move.w sbr,d2
  8557.  sub.w d1,d2
  8558.  ext.l d2
  8559.  asl.w #8,d2
  8560.  asl.w #2,d2
  8561.  divs d3,d2 
  8562.  ext.l d2
  8563.  asl.l #6,d2
  8564.  swap d1
  8565.  
  8566. .pixlopleft:
  8567.  
  8568.  swap d1
  8569.  move.w d1,(a4)+
  8570.  swap d1
  8571.  add.l d2,d1
  8572.  
  8573.  move.w d0,(a3)+
  8574.  sub.w a5,d4
  8575.  bge.s .nobigstepl
  8576.  sub.w a6,d0
  8577.  add.w d3,d4
  8578.  dbra d5,.pixlopleft
  8579.  bra lineflatGOUR
  8580.  
  8581. .nobigstepl
  8582.  sub.w d6,d0
  8583.  dbra d5,.pixlopleft
  8584.  
  8585. lineflatGOUR:
  8586.  
  8587. bothbehindGOUR:
  8588.  dbra d7,sideloopGOUR
  8589.  
  8590. pastsides:
  8591.  
  8592.  addq #2,a0
  8593.  
  8594.  move.w #320,linedir
  8595.  
  8596. ; move.l FASTBUFFER2,a6
  8597. ; add.l BIGMIDDLEY,a6
  8598. ; move.l a6,REFPTR
  8599.  
  8600.  move.l FASTBUFFER,a6
  8601.  add.l BIGMIDDLEY,a6
  8602.  move.w (a0)+,d6
  8603.  add.w SMALLIT,d6
  8604.  move.w d6,scaleval
  8605.  move.w (a0)+,d6
  8606.  
  8607.  ifne CHEESEY
  8608.  move.w d6,d7    ; 000000XX000000YY
  8609.  lsr.w #6,d6
  8610.  add.w d6,d7    ; 000000XX0000XXYY
  8611.  
  8612.  and.b #%111,d6    ; 000000XX00000XYY
  8613.  add.b d7,d7    ; 000000XX0000XYY0
  8614.  asl.w #4,d7    ; 00XX0000 XYY00000
  8615.  and.w #%0010000011100000,d7
  8616.  move.w d7,d6
  8617.  endc
  8618.  
  8619.  move.w d6,whichtile
  8620.  move.w (a0)+,d6
  8621.  add.w ZoneBright,d6
  8622.  move.w d6,lighttype
  8623.  move.w above(pc),d6
  8624.  beq groundfloor
  8625. * on ceiling:
  8626.  move.w #-320,linedir
  8627.  suba.w #320,a6
  8628. groundfloor:
  8629.  
  8630.  move.w xoff,d6
  8631.  move.w zoff,d7
  8632.  add.w xwobxoff,d7
  8633.  add.w xwobzoff,d6
  8634.  ext.l d6
  8635.  ext.l d7
  8636.  
  8637.  tst.b FULLSCR
  8638.  beq.s .shiftit
  8639.  
  8640.  asl.l #2,d6
  8641.  asl.l #2,d7
  8642.  divs #3,d6
  8643.  divs #3,d7
  8644.  swap d6
  8645.  swap d7
  8646.  clr.w d6
  8647.  clr.w d7
  8648.  asr.l #2,d6
  8649.  asr.l #2,d7
  8650.  bra.s .donsht
  8651.  
  8652. .shiftit
  8653.  
  8654. ; divs #3,d6
  8655. ; divs #3,d7
  8656.  swap d6
  8657.  swap d7
  8658.  clr.w d6
  8659.  clr.w d7
  8660.  asr.l #1,d6
  8661.  asr.l #1,d7
  8662. .donsht:
  8663.  move.w scaleval(pc),d3
  8664.  beq.s .samescale
  8665.  bgt.s .scaledown
  8666.  neg.w d3
  8667.  asr.l d3,d7
  8668.  asr.l d3,d6
  8669.  bra.s .samescale
  8670. .scaledown:
  8671.  asl.l d3,d6
  8672.  asl.l d3,d7
  8673. .samescale
  8674.  
  8675.  ifne CHEESEY
  8676.  asr.l #1,d6
  8677.  asr.l #1,d7
  8678.  endc
  8679.  
  8680.  move.l d6,sxoff
  8681.  move.l d7,szoff
  8682.  bra pastscale 
  8683.  
  8684.  asr.l #3,d1
  8685.  asr.l #3,d2
  8686.  asr.l #2,d1
  8687.  asr.l #2,d2
  8688.  asr.l #1,d1
  8689.  asr.l #1,d2
  8690. scaleprogfrom
  8691.  nop
  8692.  nop
  8693.  asl.l #1,d1
  8694.  asl.l #1,d2
  8695.  asl.l #2,d1
  8696.  asl.l #2,d2
  8697.  asl.l #3,d1
  8698.  asl.l #3,d2
  8699.  
  8700. top: dc.w 0
  8701. bottom: dc.w 0
  8702. ypos: dc.l 0
  8703. nfloors: dc.w 0
  8704. lighttype: dc.w 0
  8705. above: dc.w 0 
  8706. linedir: dc.w 0
  8707. distaddr: dc.w 0
  8708.  
  8709. minz: dc.l 0
  8710.  
  8711. leftsidetab:
  8712.  ds.w 512*2
  8713. rightsidetab:
  8714.  ds.w 512*2
  8715. leftbrighttab:
  8716.  ds.w 512*2
  8717. rightbrighttab:
  8718.  ds.w 512*2
  8719.  
  8720. PointBrights:
  8721.  dc.l 0
  8722. CurrentPointBrights:
  8723.  ds.l 2*256*10
  8724.  
  8725. movespd: dc.w 0
  8726. largespd: dc.l 0
  8727. disttobot: dc.w 0
  8728.  
  8729. pastscale:
  8730.  
  8731.  
  8732.  tst.b drawit(pc)
  8733.  beq dontdrawfloor
  8734.  
  8735.  tst.b DOUBLEHEIGHT
  8736.  beq pix1h
  8737.  
  8738.  move.l a0,-(a7)
  8739.  move.w linedir,d1
  8740.  add.w d1,linedir
  8741.  
  8742.  move.l #leftsidetab,a4
  8743.  move.w top(pc),d1
  8744.  tst.w above
  8745.  beq.s .clipfloor
  8746.  
  8747.  sub.w #320,a6
  8748.  
  8749.  move.w MIDDLEY,d7
  8750.  subq #1,d7
  8751.  sub.w d1,d7
  8752.  move.w d7,disttobot
  8753.  
  8754.  move.w bottom(pc),d7
  8755.  move.w MIDDLEY,d3
  8756.  move.w d3,d4
  8757.  sub.w topclip,d3
  8758.  sub.w botclip,d4
  8759.  cmp.w d3,d1
  8760.  bge predontdrawfloor
  8761.  cmp.w d4,d7
  8762.  blt predontdrawfloor
  8763.  cmp.w d4,d1
  8764.  bge.s .nocliptoproof
  8765.  move.w d4,d1
  8766. .nocliptoproof
  8767.  cmp.w d3,d7
  8768.  blt .doneclip
  8769.  move.w d3,d7
  8770.  bra .doneclip
  8771.  
  8772. .clipfloor:
  8773.  move.w BOTTOMY,d7
  8774.  sub.w MIDDLEY,d7
  8775.  subq #1,d7
  8776.  sub.w d1,d7
  8777.  move.w d7,disttobot
  8778.  
  8779.  move.w bottom(pc),d7
  8780.  move.w botclip,d4
  8781.  sub.w MIDDLEY,d4
  8782.  cmp.w d4,d1
  8783.  bge predontdrawfloor
  8784.  move.w topclip,d3
  8785.  sub.w MIDDLEY,d3
  8786.  cmp.w d3,d1
  8787.  bge.s .nocliptopfloor
  8788.  move.w d3,d1
  8789. .nocliptopfloor 
  8790.  cmp.w d3,d7
  8791.  ble predontdrawfloor
  8792.  cmp.w d4,d7
  8793.  blt.s .noclipbotfloor
  8794.  move.w d4,d7
  8795. .noclipbotfloor:
  8796.  
  8797. .doneclip:
  8798.  
  8799.  lea (a4,d1*2),a4
  8800.  addq #1,d7
  8801.  sub.w d1,d7
  8802.  
  8803. ;moveq #0,d0
  8804.  asr.w #1,d1
  8805. ; addx d0,d1
  8806.  
  8807. ; move.l #dists,a2
  8808.  move.w distaddr,d0
  8809.  muls #64,d0
  8810.  move.l d0,a2
  8811. ; muls #25,d0
  8812. ; adda.w d0,a2
  8813. ; lea (a2,d1*2),a2
  8814.  asr.w #1,d7
  8815.  ble predontdrawfloor 
  8816.  move.w d1,d0
  8817.  bne.s .notzero
  8818.  moveq #1,d0
  8819. .notzero
  8820.  add.w d0,d0
  8821.  muls linedir,d1
  8822.  add.l d1,a6
  8823. ; sub.l d1,REFPTR
  8824.  move.l TexturePal,a1
  8825.  add.l #256*32,a1
  8826.  move.l LineToUse,a5
  8827.  
  8828.  move.w #4,tonextline
  8829.  
  8830.  bra pix2h
  8831.  
  8832. pix1h:
  8833.  
  8834.  move.l a0,-(a7)
  8835.  
  8836.  move.l #leftsidetab,a4
  8837.  move.w top(pc),d1
  8838.   
  8839.  tst.w above
  8840.  beq.s clipfloor
  8841.  
  8842.  move.w MIDDLEY,d7
  8843.  subq #1,d7
  8844.  sub.w d1,d7
  8845.  move.w d7,disttobot
  8846.  
  8847.  move.w bottom(pc),d7
  8848.  move.w MIDDLEY,d3
  8849.  move.w d3,d4
  8850.  sub.w topclip,d3
  8851.  sub.w botclip,d4
  8852.  cmp.w d3,d1
  8853.  bge predontdrawfloor
  8854.  cmp.w d4,d7
  8855.  blt predontdrawfloor
  8856.  cmp.w d4,d1
  8857.  bge.s .nocliptoproof
  8858.  move.w d4,d1
  8859. .nocliptoproof
  8860.  cmp.w d3,d7
  8861.  blt doneclip
  8862.  move.w d3,d7
  8863.  bra doneclip
  8864.  
  8865. clipfloor:
  8866.  move.w BOTTOMY,d7
  8867.  sub.w MIDDLEY,d7
  8868.  subq #1,d7
  8869.  sub.w d1,d7
  8870.  move.w d7,disttobot
  8871.  
  8872.  move.w bottom(pc),d7
  8873.  move.w botclip,d4
  8874.  sub.w MIDDLEY,d4
  8875.  cmp.w d4,d1
  8876.  bge predontdrawfloor
  8877.  move.w topclip,d3
  8878.  sub.w MIDDLEY,d3
  8879.  cmp.w d3,d1
  8880.  bge.s .nocliptopfloor
  8881.  move.w d3,d1
  8882. .nocliptopfloor 
  8883.  cmp.w d3,d7
  8884.  ble predontdrawfloor
  8885.  cmp.w d4,d7
  8886.  blt.s .noclipbotfloor
  8887.  move.w d4,d7
  8888. .noclipbotfloor:
  8889.  
  8890. doneclip:
  8891.  
  8892.  lea (a4,d1*2),a4
  8893. ; move.l #dists,a2
  8894.  move.w distaddr,d0
  8895.  muls #64,d0
  8896.  move.l d0,a2
  8897. ; muls #25,d0
  8898. ; adda.w d0,a2
  8899. ; lea (a2,d1*2),a2
  8900.  sub.w d1,d7
  8901.  ble predontdrawfloor 
  8902.  move.w d1,d0
  8903.  bne.s .notzero
  8904.  moveq #1,d0
  8905. .notzero
  8906.  muls linedir,d1
  8907.  add.l d1,a6
  8908. ; sub.l d1,REFPTR
  8909.  move.l TexturePal,a1
  8910.  add.l #256*32,a1
  8911.  move.l LineToUse,a5
  8912.  
  8913.  move.w #2,tonextline
  8914.  
  8915. pix2h:
  8916.  
  8917.  tst.b gourfloor
  8918.  bne dogourfloor
  8919.  
  8920.  tst.b anyclipping
  8921.  beq dofloornoclip
  8922.  
  8923. dofloor:
  8924. ; move.w (a2)+,d0
  8925.  move.w leftclip,d3
  8926.  move.w rightclip,d4
  8927.  move.w rightsidetab-leftsidetab(a4),d2
  8928.  
  8929.  addq #1,d2
  8930.  cmp.w d3,d2
  8931.  ble.s nodrawline
  8932.  cmp.w d4,d2
  8933.  ble.s noclipright
  8934.  move.w d4,d2
  8935. noclipright:
  8936.  move.w (a4),d1
  8937.  cmp.w d4,d1
  8938.  bge.s nodrawline
  8939.  cmp.w d3,d1
  8940.  bge.s noclipleft
  8941.  move.w d3,d1
  8942. noclipleft:
  8943.  cmp.w d1,d2
  8944.  ble.s nodrawline
  8945.  
  8946.  move.w d1,leftedge
  8947.  move.w d2,rightedge
  8948.  
  8949. ; moveq #0,d1
  8950. ; moveq #0,d3
  8951. ; move.w leftbrighttab-leftsidetab(a4),d1
  8952. ; bge.s .okbl
  8953. ; moveq #0,d1
  8954. ;.okbl:
  8955.  
  8956. ; move.w rightbrighttab-leftsidetab(a4),d3
  8957. ; bge.s .okbr
  8958. ; moveq #0,d3
  8959. ;.okbr:
  8960.  
  8961. ; sub.w d1,d3
  8962. ; asl.w #8,d1
  8963. ; move.l d1,leftbright
  8964. ; swap d3
  8965. ; asr.l #5,d3
  8966. ; divs d5,d3
  8967. ; move.w d3,d5
  8968. ; muls.w d6,d5
  8969. ; asr.l #3,d5
  8970. ; clr.b d5
  8971. ; add.w d5,leftbright+2
  8972.  
  8973. ; ext.l d3
  8974. ; asl.l #5,d3
  8975. ; swap d3
  8976. ; asl.w #8,d3
  8977. ; move.l d3,brightspd
  8978.  
  8979.  move.l a6,a3
  8980.  movem.l d0/d7/a2/a4/a5/a6,-(a7)
  8981.  move.l a2,d7
  8982.  asl.l #2,d7
  8983.  ext.l d0
  8984.  divs.l d0,d7
  8985.  move.l d7,d0
  8986.  jsr (a5)
  8987.  movem.l (a7)+,d0/d7/a2/a4/a5/a6
  8988. nodrawline
  8989.  sub.w #1,disttobot
  8990.  move.w linedir(pc),d3
  8991.  adda.w d3,a6
  8992. ; ext.l d3
  8993. ; sub.l d3,REFPTR
  8994.  move.w tonextline,d3
  8995.  add.w d3,a4
  8996.  asr.w #1,d3
  8997.  add.w d3,d0
  8998.  subq #1,d7
  8999.  bgt dofloor
  9000.  
  9001. predontdrawfloor
  9002.  move.l (a7)+,a0
  9003.  
  9004. dontdrawfloor:
  9005.  
  9006.  rts
  9007.  
  9008. tonextline: dc.w 0
  9009. anyclipping: dc.w 0
  9010.  
  9011. dofloornoclip:
  9012. ; move.w (a2)+,d0
  9013.  move.w rightsidetab-leftsidetab(a4),d2
  9014.  addq #1,d2
  9015.  move.w (a4),d1
  9016.  move.w d1,leftedge
  9017.  move.w d2,rightedge
  9018.  
  9019. ; sub.w d1,d2
  9020.  
  9021. ; moveq #0,d1
  9022. ; moveq #0,d3
  9023. ; move.w leftbrighttab-leftsidetab(a4),d1
  9024. ; bge.s .okbl
  9025. ; moveq #0,d1
  9026. ;.okbl:
  9027.  
  9028. ; move.w rightbrighttab-leftsidetab(a4),d3
  9029. ; bge.s .okbr
  9030. ; moveq #0,d3
  9031. ;.okbr:
  9032.  
  9033. ; sub.w d1,d3
  9034. ; asl.w #8,d1
  9035. ; move.l d1,leftbright
  9036. ; swap d3
  9037. ; asr.l #5,d3
  9038. ; divs d2,d3
  9039. ; ext.l d3
  9040. ; asl.l #5,d3
  9041. ; swap d3
  9042. ; asl.w #8,d3
  9043. ; move.l d3,brightspd
  9044.  
  9045.  move.l a6,a3
  9046.  movem.l d0/d7/a2/a4/a5/a6,-(a7)
  9047.  move.l a2,d7
  9048.  asl.l #2,d7
  9049.  ext.l d0
  9050.  divs.l d0,d7
  9051.  move.l d7,d0
  9052.  jsr (a5)
  9053.  movem.l (a7)+,d0/d7/a2/a4/a5/a6
  9054.  sub.w #1,disttobot
  9055.  move.w linedir(pc),d3
  9056.  adda.w d3,a6
  9057. ; ext.l d3
  9058. ; sub.l d3,REFPTR
  9059.  move.w tonextline,d3
  9060.  add.w d3,a4
  9061.  asr.w #1,d3
  9062.  add.w d3,d0
  9063.  subq #1,d7
  9064.  bgt dofloornoclip
  9065.  
  9066.  bra predontdrawfloor
  9067.  
  9068. dogourfloor:
  9069.  tst.b anyclipping
  9070.  beq dofloornoclipGOUR
  9071.  
  9072. dofloorGOUR:
  9073. ; move.w (a2)+,d0
  9074.  move.w leftclip,d3
  9075.  move.w rightclip,d4
  9076.  move.w rightsidetab-leftsidetab(a4),d2
  9077.  
  9078.  move.w d2,d5
  9079.  sub.w (a4),d5
  9080.  addq #1,d5
  9081.  moveq #0,d6
  9082.  
  9083.  addq #1,d2
  9084.  cmp.w d3,d2
  9085.  ble nodrawlineGOUR
  9086.  cmp.w d4,d2
  9087.  ble.s nocliprightGOUR
  9088.  move.w d4,d2
  9089. nocliprightGOUR:
  9090.  move.w (a4),d1
  9091.  cmp.w d4,d1
  9092.  bge nodrawlineGOUR
  9093.  cmp.w d3,d1
  9094.  bge.s noclipleftGOUR
  9095.  move.w d3,d6
  9096.  subq #1,d6
  9097.  sub.w d1,d6
  9098.  move.w d3,d1
  9099. noclipleftGOUR:
  9100.  cmp.w d1,d2
  9101.  ble nodrawlineGOUR
  9102.  
  9103.  move.w d1,leftedge
  9104.  move.w d2,rightedge
  9105.  
  9106.  move.l a2,d2
  9107.  asl.l #2,d2
  9108.  ext.l d0
  9109.  divs.l d0,d2
  9110.  move.l d2,dst
  9111.  asr.l #7,d2
  9112.  asr.l #2,d2
  9113. ; addq #5,d2
  9114. ; add.w lighttype,d2
  9115.  
  9116.  moveq #0,d1
  9117.  moveq #0,d3
  9118.  move.w leftbrighttab-leftsidetab(a4),d1
  9119.  add.w d2,d1
  9120.  bge.s .okbl
  9121.  moveq #0,d1
  9122. .okbl:
  9123. ; asr.w #1,d1
  9124.  cmp.w #30,d1
  9125.  ble.s .okdl
  9126.  move.w #30,d1
  9127. .okdl:
  9128.  
  9129.  move.w rightbrighttab-leftsidetab(a4),d3
  9130.  add.w d2,d3
  9131.  bge.s .okbr
  9132.  moveq #0,d3
  9133. .okbr:
  9134. ; asr.w #1,d3
  9135.  cmp.w #30,d3
  9136.  ble.s .okdr
  9137.  move.w #30,d3
  9138. .okdr:
  9139.  
  9140.  sub.w d1,d3
  9141.  asl.w #8,d1
  9142.  move.w d1,leftbright
  9143.  swap d3
  9144.  tst.l d3
  9145.  bgt.s .OKITSPOSALREADY 
  9146.  neg.l d3
  9147.  asr.l #6,d3
  9148.  divs d5,d3
  9149.  neg.w d3
  9150.  bra.s .OKNOWITSNEG
  9151.  
  9152. .OKITSPOSALREADY
  9153.  asr.l #6,d3
  9154.  divs d5,d3
  9155. .OKNOWITSNEG
  9156.  muls d3,d6
  9157.  add.w #256*4,d6
  9158.  asr.w #2,d6
  9159.  clr.b d6
  9160.  add.w leftbright,d6
  9161.  bge.s .oklbnn
  9162.  moveq #0,d6
  9163. .oklbnn:
  9164.  move.w d6,leftbright
  9165.  
  9166.  ext.l d3
  9167.  asr.l #2,d3
  9168. ; swap d3
  9169. ; asl.w #8,d3
  9170.  move.w d3,brightspd
  9171.  
  9172.  move.l a6,a3
  9173.  movem.l d0/d7/a2/a4/a5/a6,-(a7)
  9174.  move.l dst,d0
  9175.  move.l TexturePal,a1
  9176.  add.l #256*32,a1
  9177.  move.l floortile,a0
  9178.  adda.w whichtile,a0
  9179.  jsr pastfloorbright
  9180.  movem.l (a7)+,d0/d7/a2/a4/a5/a6
  9181. nodrawlineGOUR
  9182.  
  9183.  sub.w #1,disttobot
  9184.  
  9185.  move.w linedir(pc),d3
  9186.  adda.w d3,a6
  9187. ; ext.l d3
  9188. ; sub.l d3,REFPTR
  9189.  move.w tonextline,d3
  9190.  add.w d3,a4
  9191.  asr.w #1,d3
  9192.  add.w d3,d0
  9193.  subq #1,d7
  9194.  bgt dofloorGOUR
  9195.  
  9196. predontdrawfloorGOUR
  9197.  move.l (a7)+,a0
  9198.  
  9199. dontdrawfloorGOUR:
  9200.  
  9201.  rts
  9202.  
  9203. REFPTR: dc.l 0
  9204.  
  9205. dofloornoclipGOUR:
  9206. ; move.w (a2)+,d0
  9207.  move.w rightsidetab-leftsidetab(a4),d2
  9208.  addq #1,d2
  9209.  move.w (a4),d1
  9210.  move.w d1,leftedge
  9211.  move.w d2,rightedge
  9212.  
  9213.  sub.w d1,d2
  9214.  
  9215.  move.l a2,d6
  9216.  asl.l #2,d6
  9217.  ext.l d0
  9218.  divs.l d0,d6
  9219.  move.l d6,d5
  9220.  asr.l #7,d5
  9221.  asr.l #2,d5
  9222. ; addq #5,d5
  9223. ; add.w lighttype,d5
  9224.  
  9225.  moveq #0,d1
  9226.  moveq #0,d3
  9227.  move.w leftbrighttab-leftsidetab(a4),d1
  9228.  add.w d5,d1
  9229.  bge.s .okbl
  9230.  moveq #0,d1
  9231. .okbl:
  9232. ; asr.w #1,d1
  9233.  cmp.w #30,d1
  9234.  ble.s .okdl
  9235.  move.w #30,d1
  9236. .okdl:
  9237.  
  9238.  move.w rightbrighttab-leftsidetab(a4),d3
  9239.  add.w d5,d3
  9240.  bge.s .okbr
  9241.  moveq #0,d3
  9242. .okbr:
  9243. ; asr.w #1,d3
  9244.  cmp.w #30,d3
  9245.  ble.s .okdr
  9246.  move.w #30,d3
  9247. .okdr:
  9248.  
  9249. ; sub.w d1,d3
  9250. ; asl.w #8,d1
  9251. ; move.l d1,leftbright
  9252. ; swap d3
  9253. ; asr.l #5,d3
  9254. ; divs d2,d3
  9255. ; ext.l d3
  9256. ; asl.l #5,d3
  9257. ; swap d3
  9258. ; asl.w #8,d3
  9259. ; move.l d3,brightspd
  9260.  
  9261.  sub.w d1,d3
  9262.  asl.w #8,d1
  9263.  move.w d1,leftbright
  9264.  swap d3
  9265.  ext.l d2
  9266.  divs.l d2,d3
  9267.  asr.l #8,d3
  9268.  move.w d3,brightspd
  9269.  
  9270.  move.l a6,a3
  9271.  movem.l d0/d7/a2/a4/a5/a6,-(a7)
  9272.  move.l d6,d0
  9273.  move.l d0,dst
  9274.  move.l TexturePal,a1
  9275.  add.l #256*32,a1
  9276.  move.l floortile,a0
  9277.  adda.w whichtile,a0
  9278.  jsr pastfloorbright
  9279.  movem.l (a7)+,d0/d7/a2/a4/a5/a6
  9280.  sub.w #1,disttobot
  9281.  
  9282.  move.w linedir(pc),d3
  9283.  adda.w d3,a6
  9284. ; ext.l d3
  9285. ; sub.l d3,REFPTR
  9286.  
  9287.  move.w tonextline,d3
  9288.  add.w d3,a4
  9289.  asr.w #1,d3
  9290.  add.w d3,d0
  9291.  subq #1,d7
  9292.  bgt dofloornoclipGOUR
  9293.  
  9294.  bra predontdrawfloorGOUR
  9295.  
  9296.  
  9297.  
  9298. dists:
  9299. ; incbin "floordists"
  9300. drawit: dc.w 0
  9301.  
  9302. LineToUse: dc.l 0
  9303.  
  9304. ***************************
  9305. * Right then, time for the floor
  9306. * routine...
  9307. * For test purposes, give it
  9308. * a3 = point to screen
  9309. * d0= z distance away
  9310. * and sinval+cosval must be set up.
  9311. ***************************
  9312.  
  9313. BLACKFLOOR:
  9314.  moveq #0,d0
  9315.  bra.s DOBLACK
  9316.  
  9317. SimpleFloorLine:
  9318.  
  9319.  CACHE_OFF d2
  9320.  
  9321.  move.l #doacrossline,a1
  9322.  move.w leftedge(pc),d1
  9323.  move.w rightedge(pc),d3
  9324.  sub.w d1,d3
  9325.  lea (a1,d1.w*4),a1
  9326.  move.w (a1,d3.w*4),d4
  9327.  move.w #$4e75,(a1,d3.w*4)
  9328.  
  9329.  tst.b CLRNOFLOOR
  9330.  bne.s BLACKFLOOR
  9331.  
  9332.  move.l #PLAINSCALE,a2
  9333.  
  9334.  move.w d0,d2
  9335.  move.w lighttype,d1
  9336.  asr.w #8,d2
  9337.  add.w #5,d1
  9338.  add.w d2,d1
  9339.  bge.s .fixedbright
  9340.  moveq #0,d1
  9341. .fixedbright:
  9342.  cmp.w #28,d1
  9343.  ble.s .smallbright
  9344.  move.w #28,d1
  9345. .smallbright:
  9346.  lea (a2,d1.w*2),a2
  9347.  
  9348.  move.w whichtile,d0
  9349.  move.w d0,d1
  9350.  and.w #$3,d1
  9351.  and.w #$300,d0
  9352.  lsl.b #6,d1
  9353.  move.b d1,d0
  9354.  move.w d0,tstwhich
  9355.  move.w (a2,d0.w),d0
  9356.  
  9357. DOBLACK:
  9358.  jsr (a1)
  9359.  move.w d4,(a1,d3.w*4)
  9360.  
  9361.  CACHE_ON d2
  9362.  
  9363.  rts
  9364.  
  9365. tstwhich: dc.w 0
  9366. whichtile: dc.w 0
  9367.   
  9368. PLAINSCALE: 
  9369. ;incbin "ab3:includes/plainscale"
  9370.   
  9371. storeit: dc.l 0
  9372.  
  9373. doacrossline:
  9374. val SET 0
  9375.  REPT 32
  9376.  move.w d0,val(a3)
  9377. val SET val+4
  9378.  ENDR
  9379. val SET val+4
  9380.  REPT 32
  9381.  move.w d0,val(a3)
  9382. val SET val+4
  9383.  ENDR
  9384. val SET val+4
  9385.  REPT 32
  9386.  move.w d0,val(a3)
  9387. val SET val+4
  9388.  ENDR
  9389.  rts
  9390.  
  9391.  
  9392. leftedge: dc.w 0
  9393. rightedge: dc.w 0
  9394.  
  9395. rndpt: dc.l rndtab
  9396.  
  9397.  
  9398. dst: dc.l 0
  9399.  
  9400. FloorLine:
  9401.  
  9402.  move.l floortile,a0
  9403.  adda.w whichtile,a0
  9404.  move.w lighttype,d1
  9405.  move.l d0,dst    ; *4
  9406.  move.l d0,d2    ; *4
  9407. *********************
  9408. * Old version
  9409.  asr.l #2,d2
  9410.  asr.l #8,d2
  9411.  add.w #5,d1
  9412. *********************
  9413. ; asr.w #3,d2
  9414. ; sub.w #4,d2
  9415. ; cmp.w #6,d2
  9416. ; blt.s flbrbr
  9417. ; move.w #6,d2
  9418. ;flbrbr:
  9419. *********************
  9420.  add.w d2,d1
  9421.  bge.s .fixedbright
  9422.  moveq #0,d1
  9423. .fixedbright:
  9424.  cmp.w #28,d1
  9425.  ble.s .smallbright
  9426.  move.w #28,d1
  9427. .smallbright:
  9428.  move.l TexturePal,a1
  9429.  add.l #256*32,a1
  9430.  add.l floorbright(pc,d1.w*4),a1
  9431.  bra pastfloorbright
  9432.  
  9433. ConstCol: dc.w 0
  9434.  
  9435. BumpLine:
  9436.  
  9437.  tst.b smoothbumps
  9438.  beq.s Chunky
  9439.  
  9440.  move.l #SmoothTile,a0
  9441.  lea Smoothscalecols,a1
  9442.  bra pastast
  9443.  
  9444. Chunky:
  9445.  
  9446.  moveq #0,d2
  9447.  move.l #Bumptile,a0
  9448.  move.w whichtile,d2
  9449.  adda.w d2,a0
  9450.  ror.l #2,d2
  9451.  lsr.w #6,d2
  9452.  rol.l #2,d2
  9453.  and.w #15,d2
  9454.  move.l #ConstCols,a1
  9455.  move.w (a1,d2.w*2),ConstCol
  9456.  lea Bumpscalecols,a1
  9457.  
  9458. pastast:
  9459.  move.w lighttype,d1
  9460.  
  9461.  move.l d0,dst
  9462.  
  9463.  move.l d0,d2
  9464. *********************
  9465. * Old version
  9466.  asr.l #2,d2
  9467.  asr.l #8,d2
  9468.  add.w #5,d1
  9469. *********************
  9470. ; asr.w #3,d2
  9471. ; sub.w #4,d2
  9472. ; cmp.w #6,d2
  9473. ; blt.s flbrbr
  9474. ; move.w #6,d2
  9475. ;flbrbr:
  9476. *********************
  9477.  add.w d2,d1
  9478.  bge.s .fixedbright
  9479.  moveq #0,d1
  9480. .fixedbright:
  9481.  cmp.w #31,d1
  9482.  ble.s .smallbright
  9483.  move.w #31,d1
  9484. .smallbright:
  9485.  add.l floorbright(pc,d1.w*4),a1
  9486.  bra pastfloorbright
  9487.  
  9488.  
  9489. floorbright:
  9490.  dc.l 512*0
  9491.  dc.l 512*1
  9492.  dc.l 512*2
  9493.  dc.l 512*3
  9494.  dc.l 512*4
  9495.  
  9496.  dc.l 512*5
  9497.  dc.l 512*6
  9498.  dc.l 512*7
  9499.  dc.l 512*8
  9500.  dc.l 512*9
  9501.  
  9502.  dc.l 512*10
  9503.  dc.l 512*11
  9504.  dc.l 512*12
  9505.  dc.l 512*13
  9506.  dc.l 512*14
  9507.  
  9508.  dc.l 512*15
  9509.  dc.l 512*16
  9510.  dc.l 512*17
  9511.  dc.l 512*18
  9512.  dc.l 512*19
  9513.  
  9514.  dc.l 512*20
  9515.  dc.l 512*21
  9516.  dc.l 512*22
  9517.  dc.l 512*23
  9518.  dc.l 512*24
  9519.  
  9520.  dc.l 512*25
  9521.  dc.l 512*26
  9522.  dc.l 512*27
  9523.  dc.l 512*28
  9524.  dc.l 512*29
  9525.  
  9526.  dc.l 512*30
  9527.  dc.l 512*31
  9528.  
  9529. widthleft: dc.w 0
  9530. scaleval: dc.w 0
  9531. sxoff: dc.l 0
  9532. szoff: dc.l 0
  9533. xoff34: dc.w 0
  9534. zoff34: dc.w 0
  9535. scosval: dc.w 0
  9536. ssinval: dc.w 0
  9537.  
  9538.  
  9539. floorsetbright:
  9540.  move.l #walltiles,a0
  9541.  
  9542. pastfloorbright:
  9543.  
  9544.  move.l d0,d1
  9545.  muls cosval,d1    ; change in x across whole width
  9546.  move.l d0,d2
  9547.  muls sinval,d2    ; change in z across whole width
  9548.  neg.l d2
  9549.  ifne CHEESEY
  9550.  asr.l #3,d2
  9551.  asr.l #3,d1
  9552.  endc
  9553.  ifeq CHEESEY
  9554.  asr.l #2,d2
  9555.  asr.l #2,d1
  9556.  endc
  9557. scaleprog:
  9558.  move.w scaleval(pc),d3
  9559.  beq.s .samescale
  9560.  bgt.s .scaledown
  9561.  neg.w d3
  9562.  asr.l d3,d1
  9563.  asr.l d3,d2
  9564.  bra.s .samescale
  9565. .scaledown:
  9566.  asl.l d3,d1
  9567.  asl.l d3,d2
  9568. .samescale
  9569.  
  9570.  
  9571.  move.l d1,d3 ;    z cos
  9572.  move.l d3,d6
  9573.  move.l d3,d5
  9574.  asr.l #1,d6
  9575.  add.l d6,d3
  9576.  asr.l #1,d3
  9577.  
  9578.  move.l d2,d4    ; z sin
  9579.  move.l d4,d6
  9580.  asr.l #1,d6
  9581.  add.l d4,d6
  9582.  add.l d3,d4
  9583.  neg.l d4    ; start x
  9584.  
  9585.  asr.l #1,d6    ; zsin/2
  9586.  sub.l d6,d5    ; start z
  9587.  
  9588.  add.l sxoff,d4
  9589.  add.l szoff,d5
  9590.  
  9591.  tst.b FULLSCR
  9592.  beq.s .nob
  9593.  
  9594.  moveq #0,d6
  9595.  move.w leftedge(pc),d6
  9596.  beq.s .nomultleftB
  9597.  
  9598.  add.l d6,d6
  9599.  divs #3,d6
  9600.  ext.l d6
  9601.  
  9602.  move.l d1,a4
  9603.  move.l d2,a5
  9604.  
  9605.  muls.l d6,d1
  9606.  asr.l #7,d1
  9607.  add.l d1,d4
  9608.  
  9609.  muls.l d6,d2
  9610.  asr.l #7,d2
  9611.  add.l d2,d5
  9612.  move.l a4,d1
  9613.  move.l a5,d2
  9614.  
  9615.  move.w leftedge(pc),d6
  9616.  
  9617. .nomultleftB:
  9618.  
  9619.  move.w d4,startsmoothx
  9620.  move.w d5,startsmoothz
  9621.  
  9622.  asr.l #8,d4
  9623.  asl.l #8,d5
  9624. ; add.w szoff,d5
  9625. ; add.w sxoff,d4
  9626. ; and.w #63,d4
  9627. ; and.w #63*256,d5
  9628.  
  9629.  move.w d4,d5
  9630.  
  9631.  asr.l #6,d1
  9632.  asr.l #6,d2
  9633.  divs.l #3,d1
  9634.  divs.l #3,d2
  9635.  
  9636.  bra.s doneallmult
  9637.  
  9638. .nob 
  9639.  
  9640.  moveq #0,d6
  9641.  move.w leftedge(pc),d6
  9642.  beq.s nomultleft
  9643.  
  9644.  move.l d1,a4
  9645.  move.l d2,a5
  9646.  
  9647.  muls.l d6,d1
  9648.  asr.l #7,d1
  9649.  add.l d1,d4
  9650.  
  9651.  muls.l d6,d2
  9652.  asr.l #7,d2
  9653.  add.l d2,d5
  9654.  move.l a4,d1
  9655.  move.l a5,d2
  9656.  
  9657.  move.w leftedge(pc),d6
  9658.  
  9659. nomultleft:
  9660.  
  9661.  move.w d4,startsmoothx
  9662.  move.w d5,startsmoothz
  9663.  
  9664.  asr.l #8,d4
  9665.  asl.l #8,d5
  9666.  
  9667.  
  9668. ; add.w szoff,d5
  9669. ; add.w sxoff,d4
  9670. ; and.w #63,d4
  9671. ; and.w #63*256,d5
  9672.  
  9673.  move.w d4,d5
  9674.  
  9675.  asr.l #7,d1
  9676.  asr.l #7,d2
  9677. ; divs.l #3,d1
  9678. ; divs.l #3,d2
  9679.  
  9680. doneallmult:
  9681.  
  9682.  move.w d1,a4
  9683.  move.w d2,a5
  9684.  asl.l #8,d2
  9685. ; and.w #%0011111100000000,d2
  9686.  asr.l #8,d1
  9687.  move.w d1,d2
  9688.  ifeq CHEESEY
  9689.  move.l #$3fff3fff,d1
  9690.  endc
  9691.  ifne CHEESEY
  9692.  move.l #$1fff1fff,d1
  9693.  endc
  9694.  and.l d1,d5
  9695. ; swap d5
  9696. ; move.w startsmoothz,d5
  9697. ; swap d5
  9698. ; swap d2
  9699. ; move.w a5,d2
  9700. ; swap d2
  9701.  
  9702. ***********************************
  9703.  
  9704.  
  9705.  tst.b DOUBLEWIDTH
  9706.  beq.s .nodoub
  9707.  
  9708.  and.b #$fe,d6
  9709.  
  9710.  move.w d6,a2
  9711.  moveq #0,d0 
  9712.  move.w rightedge(pc),d3 
  9713.  lea (a3,a2.w),a3 
  9714.  move.w d3,d7
  9715.  sub.w a2,d7
  9716.  asr.w #1,d7
  9717.  move.w startsmoothx,d3
  9718.  
  9719.  tst.b usewater
  9720.  bne texturedwaterDOUB
  9721. ; tst.b gourfloor
  9722.  bra gouraudfloorDOUB
  9723.  
  9724. .nodoub:
  9725.  
  9726.  move.w d6,a2
  9727.  moveq #0,d0 
  9728.  move.w rightedge(pc),d3 
  9729.  lea (a3,a2.w),a3 
  9730.  move.w d3,d7
  9731.  sub.w a2,d7
  9732.  
  9733. intofirststrip:
  9734. allintofirst:
  9735.  
  9736.  move.w startsmoothx,d3
  9737.  
  9738. tstwat:
  9739.  
  9740.  tst.b usewater
  9741.  bne texturedwater
  9742. ; tst.b gourfloor
  9743.  bra gouraudfloor
  9744.  
  9745.  
  9746.  
  9747. ******************************
  9748. * BumpMap the floor/ceiling! *
  9749.  tst.b usebumps
  9750.  bne.s BumpMap
  9751. ******************************
  9752.  
  9753. ordinary:
  9754.  moveq #0,d0
  9755.  
  9756.  dbra d7,acrossscrn
  9757.  rts
  9758.  
  9759. usebumps: dc.w $0
  9760. smoothbumps: dc.w $0
  9761. gourfloor: dc.w 0
  9762.  
  9763.  include "ab3:source_4000/bumpmap.s"
  9764.  
  9765.  CNOP 0,4
  9766. backbefore:
  9767.  and.w d1,d5
  9768.  move.b (a0,d5.w*4),d0
  9769.  add.w a4,d3
  9770.  addx.l d6,d5
  9771.  move.w (a1,d0.w*2),(a3)
  9772.  addq #4,a3
  9773.  dbcs d7,acrossscrn
  9774.  dbcc d7,backbefore
  9775.  bra.s past1
  9776.  
  9777. acrossscrn:
  9778.  and.w d1,d5
  9779.  move.b (a0,d5.w*4),d0
  9780.  add.w a4,d3
  9781.  addx.l d2,d5
  9782.  move.w (a1,d0.w*2),(a3)
  9783.  addq #4,a3
  9784.  dbcs d7,acrossscrn
  9785.  dbcc d7,backbefore
  9786. past1:
  9787.  bcc.s gotoacross
  9788.  
  9789.  move.w d4,d7
  9790.  bne.s .notdoneyet
  9791.  rts
  9792. .notdoneyet:
  9793.  
  9794.  cmp.w #32,d7
  9795.  ble.s .notoowide
  9796.  move.w #32,d7
  9797. .notoowide
  9798.  sub.w d7,d4  
  9799.  addq #4,a3
  9800.  
  9801.  dbra d7,backbefore
  9802.  rts
  9803.  
  9804.  
  9805. gotoacross:
  9806.  
  9807.  move.w d4,d7
  9808.  bne.s .notdoneyet
  9809.  rts
  9810. .notdoneyet:
  9811.  
  9812.  cmp.w #32,d7
  9813.  ble.s .notoowide
  9814.  move.w #32,d7
  9815. .notoowide
  9816.  sub.w d7,d4  
  9817.  addq #4,a3
  9818.  
  9819.  dbra d7,acrossscrn
  9820.  rts
  9821.  
  9822. leftbright: dc.l 0
  9823. brightspd: dc.l 0
  9824.  
  9825. gouraudfloor:
  9826.  
  9827.  move.w leftbright,d0
  9828.  move.l d1,d4
  9829.  move.w brightspd,d1
  9830.  
  9831.  move.w d7,d3
  9832.  asr.w #1,d7
  9833.  btst #0,d3
  9834.  beq.s .nosingle1
  9835.  move.w d5,d3
  9836.  move.l d5,d6
  9837.  lsr.w #8,d3
  9838.  swap d6
  9839.  move.b d3,d6
  9840.  move.w d0,d3
  9841.  ifeq CHEESEY
  9842.  move.b (a0,d6.w*4),d3
  9843.  endc
  9844.  ifne CHEESEY
  9845.  move.b (a0,d6.w),d3
  9846.  endc
  9847.  
  9848.  add.w d1,d0
  9849.  add.l d2,d5
  9850.  and.l d4,d5
  9851.  move.b (a1,d3.w),(a3)+
  9852. .nosingle1
  9853.  
  9854.  move.w d7,d3
  9855.  asr.w #1,d7
  9856.  btst #0,d3
  9857.  beq.s .nosingle2
  9858.  move.w d5,d3
  9859.  move.l d5,d6
  9860.  lsr.w #8,d3
  9861.  swap d6
  9862.  move.b d3,d6
  9863.  move.w d0,d3
  9864.  ifeq CHEESEY
  9865.  move.b (a0,d6.w*4),d3
  9866.  endc
  9867.  ifne CHEESEY
  9868.  move.b (a0,d6.w),d3
  9869.  endc
  9870.  add.w d1,d0
  9871.  add.l d2,d5
  9872.  and.l d4,d5
  9873.  move.l d5,d6
  9874.  swap d6
  9875.  move.b (a1,d3.w),(a3)+
  9876.  move.w d5,d3
  9877.  lsr.w #8,d3
  9878.  move.b d3,d6
  9879.  move.w d0,d3
  9880.  ifeq CHEESEY
  9881.  move.b (a0,d6.w*4),d3
  9882.  endc
  9883.  ifne CHEESEY
  9884.  move.b (a0,d6.w),d3
  9885.  endc
  9886.  add.w d1,d0
  9887.  add.l d2,d5
  9888.  and.l d4,d5
  9889.  move.b (a1,d3.w),(a3)+
  9890.  
  9891. .nosingle2
  9892.  
  9893.  move.l d5,d6
  9894.  swap d6
  9895.  
  9896.  dbra d7,acrossscrngour
  9897.  rts
  9898.  
  9899.  CNOP 0,4
  9900.  
  9901. acrossscrngour:
  9902.  move.w d5,d3
  9903.  lsr.w #8,d3
  9904.  move.b d3,d6
  9905.  move.w d0,d3
  9906.  ifeq CHEESEY
  9907.  move.b (a0,d6.w*4),d3
  9908.  endc
  9909.  ifne CHEESEY
  9910.  move.b (a0,d6.w),d3
  9911.  endc
  9912.  add.w d1,d0
  9913.  add.l d2,d5
  9914.  and.l d4,d5
  9915.  move.l d5,d6
  9916.  swap d6
  9917.  move.b (a1,d3.w),(a3)+
  9918.  move.w d5,d3
  9919.  lsr.w #8,d3
  9920.  move.b d3,d6
  9921.  move.w d0,d3
  9922.  ifeq CHEESEY
  9923.  move.b (a0,d6.w*4),d3
  9924.  endc
  9925.  ifne CHEESEY
  9926.  move.b (a0,d6.w),d3
  9927.  endc
  9928.  add.w d1,d0
  9929.  add.l d2,d5
  9930.  and.l d4,d5
  9931.  move.l d5,d6
  9932.  swap d6
  9933.  move.b (a1,d3.w),(a3)+
  9934.  move.w d5,d3
  9935.  lsr.w #8,d3
  9936.  move.b d3,d6
  9937.  move.w d0,d3
  9938.  ifeq CHEESEY
  9939.  move.b (a0,d6.w*4),d3
  9940.  endc
  9941.  ifne CHEESEY
  9942.  move.b (a0,d6.w),d3
  9943.  endc
  9944.  add.w d1,d0
  9945.  add.l d2,d5
  9946.  and.l d4,d5
  9947.  move.l d5,d6
  9948.  swap d6
  9949.  move.b (a1,d3.w),(a3)+
  9950.  move.w d5,d3
  9951.  lsr.w #8,d3
  9952.  move.b d3,d6
  9953.  move.w d0,d3
  9954.  ifeq CHEESEY
  9955.  move.b (a0,d6.w*4),d3
  9956.  endc
  9957.  ifne CHEESEY
  9958.  move.b (a0,d6.w),d3
  9959.  endc
  9960.  add.w d1,d0
  9961.  add.l d2,d5
  9962.  and.l d4,d5
  9963.  move.l d5,d6
  9964.  swap d6
  9965.  move.b (a1,d3.w),(a3)+
  9966.  dbra d7,acrossscrngour
  9967.  
  9968.  rts
  9969.  
  9970.  
  9971. gouraudfloorDOUB:
  9972.  
  9973.  move.w leftbright,d0
  9974.  move.l d1,d4
  9975.  move.w brightspd,d1
  9976.  add.w d1,d1
  9977.  add.l d2,d2
  9978.  
  9979.  move.w d7,d3
  9980.  asr.w #1,d7
  9981.  btst #0,d3
  9982.  beq.s .nosingle1
  9983.  move.w d5,d3
  9984.  move.l d5,d6
  9985.  lsr.w #8,d3
  9986.  swap d6
  9987.  move.b d3,d6
  9988.  move.w d0,d3
  9989.  ifeq CHEESEY
  9990.  move.b (a0,d6.w*4),d3
  9991.  endc
  9992.  ifne CHEESEY
  9993.  move.b (a0,d6.w),d3
  9994.  endc
  9995.  add.w d1,d0
  9996.  add.l d2,d5
  9997.  and.l d4,d5
  9998.  move.w (a1,d3.w),(a3)+
  9999. .nosingle1
  10000.  
  10001.  move.w d7,d3
  10002.  asr.w #1,d7
  10003.  btst #0,d3
  10004.  beq.s .nosingle2
  10005.  move.w d5,d3
  10006.  move.l d5,d6
  10007.  lsr.w #8,d3
  10008.  swap d6
  10009.  move.b d3,d6
  10010.  move.w d0,d3
  10011.  ifeq CHEESEY
  10012.  move.b (a0,d6.w*4),d3
  10013.  endc
  10014.  ifne CHEESEY
  10015.  move.b (a0,d6.w),d3
  10016.  endc
  10017.  add.w d1,d0
  10018.  add.l d2,d5
  10019.  and.l d4,d5
  10020.  move.l d5,d6
  10021.  swap d6
  10022.  move.w (a1,d3.w),(a3)+
  10023.  move.w d5,d3
  10024.  lsr.w #8,d3
  10025.  move.b d3,d6
  10026.  move.w d0,d3
  10027.  ifeq CHEESEY
  10028.  move.b (a0,d6.w*4),d3
  10029.  endc
  10030.  ifne CHEESEY
  10031.  move.b (a0,d6.w),d3
  10032.  endc
  10033.  add.w d1,d0
  10034.  add.l d2,d5
  10035.  and.l d4,d5
  10036.  move.w (a1,d3.w),(a3)+
  10037.  
  10038. .nosingle2
  10039.  
  10040.  move.l d5,d6
  10041.  swap d6
  10042.  
  10043.  dbra d7,acrossscrngourD
  10044.  rts
  10045.  
  10046.  CNOP 0,4
  10047.  
  10048. acrossscrngourD:
  10049.  move.w d5,d3
  10050.  lsr.w #8,d3
  10051.  move.b d3,d6
  10052.  move.w d0,d3
  10053.  ifeq CHEESEY
  10054.  move.b (a0,d6.w*4),d3
  10055.  endc
  10056.  ifne CHEESEY
  10057.  move.b (a0,d6.w),d3
  10058.  endc
  10059.  add.w d1,d0
  10060.  add.l d2,d5
  10061.  and.l d4,d5
  10062.  move.l d5,d6
  10063.  swap d6
  10064.  move.w (a1,d3.w),(a3)+
  10065.  move.w d5,d3
  10066.  lsr.w #8,d3
  10067.  move.b d3,d6
  10068.  move.w d0,d3
  10069.  ifeq CHEESEY
  10070.  move.b (a0,d6.w*4),d3
  10071.  endc
  10072.  ifne CHEESEY
  10073.  move.b (a0,d6.w),d3
  10074.  endc
  10075.  add.w d1,d0
  10076.  add.l d2,d5
  10077.  and.l d4,d5
  10078.  move.l d5,d6
  10079.  swap d6
  10080.  move.w (a1,d3.w),(a3)+
  10081.  move.w d5,d3
  10082.  lsr.w #8,d3
  10083.  move.b d3,d6
  10084.  move.w d0,d3
  10085.  ifeq CHEESEY
  10086.  move.b (a0,d6.w*4),d3
  10087.  endc
  10088.  ifne CHEESEY
  10089.  move.b (a0,d6.w),d3
  10090.  endc
  10091.  add.w d1,d0
  10092.  add.l d2,d5
  10093.  and.l d4,d5
  10094.  move.l d5,d6
  10095.  swap d6
  10096.  move.w (a1,d3.w),(a3)+
  10097.  move.w d5,d3
  10098.  lsr.w #8,d3
  10099.  move.b d3,d6
  10100.  move.w d0,d3
  10101.  ifeq CHEESEY
  10102.  move.b (a0,d6.w*4),d3
  10103.  endc
  10104.  ifne CHEESEY
  10105.  move.b (a0,d6.w),d3
  10106.  endc
  10107.  add.w d1,d0
  10108.  add.l d2,d5
  10109.  and.l d4,d5
  10110.  move.l d5,d6
  10111.  swap d6
  10112.  move.w (a1,d3.w),(a3)+
  10113.  dbra d7,acrossscrngourD
  10114.  
  10115.  rts
  10116.  
  10117.  
  10118. ;backbeforegour:
  10119. ; and.w #63*256+63,d5
  10120. ; move.b (a0,d5.w*4),d0
  10121. ; add.l d1,d0
  10122. ; bcc.s .nomoreb
  10123. ; add.w #256,d0
  10124. ;.nomoreb:
  10125. ; add.w a4,d3
  10126. ; move.w (a1,d0.w*2),(a3)+
  10127. ; addx.l d6,d5
  10128. ; dbcs d7,acrossscrngour
  10129. ; dbcc d7,backbeforegour
  10130. ; rts
  10131. ; bra.s past1gour
  10132.  
  10133. ;acrossscrngour:
  10134. ; and.l #$3f3f,d5 
  10135. ; move.b (a0,d5.w*4),d0
  10136. ; add.l d1,d0
  10137. ; bcc.s .nomoreb
  10138. ; add.w #256,d0
  10139. ;.nomoreb:
  10140. ; add.w a4,d3
  10141. ; move.w (a1,d0.w*2),(a3)+
  10142. ; addx.l d2,d5
  10143. ; dbcs d7,acrossscrngour
  10144. ; dbcc d7,backbeforegour
  10145. ;past1gour:
  10146. ; rts
  10147.  
  10148.  move.w d4,d7
  10149.  bne.s .notdoneyet
  10150.  move.l d0,leftbright
  10151.  
  10152.  rts
  10153. .notdoneyet:
  10154.  
  10155.  cmp.w #32,d7
  10156.  ble.s .notoowide
  10157.  move.w #32,d7
  10158. .notoowide
  10159.  sub.w d7,d4  
  10160.  addq #4,a3
  10161.  
  10162. ; dbra d7,backbeforegour
  10163.  rts
  10164.  
  10165.  
  10166. gotoacrossgour:
  10167.  
  10168.  move.w d4,d7
  10169.  bne.s .notdoneyet
  10170.  rts
  10171. .notdoneyet:
  10172.  
  10173.  cmp.w #32,d7
  10174.  ble.s .notoowide
  10175.  move.w #32,d7
  10176. .notoowide
  10177.  sub.w d7,d4  
  10178.  addq #4,a3
  10179.  
  10180.  dbra d7,acrossscrngour
  10181.  rts
  10182.  
  10183.  
  10184. waterpt: dc.l waterlist
  10185.  
  10186. waterlist:
  10187.  dc.l waterfile
  10188.  dc.l waterfile+2
  10189.  dc.l waterfile+256
  10190.  dc.l waterfile+256+2
  10191.  dc.l waterfile+512
  10192.  dc.l waterfile+512+2
  10193.  dc.l waterfile+768
  10194.  dc.l waterfile+768+2
  10195. ; dc.l waterfile+768
  10196. ; dc.l waterfile+512+2
  10197. ; dc.l waterfile+512
  10198. ; dc.l waterfile+256+2
  10199. ; dc.l waterfile+256
  10200. ; dc.l waterfile+2
  10201. endwaterlist:
  10202.  
  10203. watertouse: dc.l waterfile
  10204.  
  10205. wtan: dc.w 0
  10206. wateroff: dc.l 0
  10207.  
  10208. REFLECTIONWATER:
  10209.  
  10210.  move.l d1,d4
  10211.  
  10212.  add.l wateroff,d5
  10213.  
  10214.  move.l TexturePal,a1
  10215.  add.l #256*16,a1
  10216.  move.l dst,d0
  10217.  clr.b d0
  10218.  
  10219.  add.w d0,d0
  10220.  cmp.w #12*512,d0
  10221.  blt.s .notoowater
  10222.  move.w #12*512,d0
  10223.  
  10224. .notoowater:
  10225.   
  10226.  adda.w d0,a1
  10227.  
  10228.  move.l dst,d0
  10229.  asl.w #7,d0
  10230.  add.w wtan,d0
  10231.  and.w #8191,d0
  10232.  move.l #SineTable,a0
  10233.  move.w (a0,d0.w),d0
  10234.  ext.l d0
  10235.  
  10236.  move.l dst,d3
  10237.  add.w #300,d3
  10238.  divs d3,d0
  10239.  asr.w #5,d0
  10240.  addq #4,d0
  10241.  cmp.w disttobot,d0
  10242.  blt.s oknotoffbotototr
  10243.  
  10244.  move.w disttobot,d0
  10245.  subq #1,d0
  10246.  
  10247. oknotoffbotototr
  10248.  
  10249. ; move.w dst,d3
  10250. ; asr.w #7,d3
  10251. ; add.w d3,d0
  10252.  
  10253.  muls #320,d0
  10254.  tst.w above
  10255.  beq.s nonnnnnegr
  10256.  neg.l d0
  10257.  
  10258. nonnnnnegr:
  10259.  
  10260.  move.l d0,a6
  10261.  
  10262.  move.l watertouse,a0
  10263.  
  10264. ; move.l #mixtab,a5
  10265.  
  10266.  moveq #0,d1
  10267.  
  10268.  move.w startsmoothx,d3
  10269.  dbra d7,acrossscrnwr
  10270.  rts
  10271.  
  10272. backbeforewr:
  10273.  and.w d1,d5 
  10274.  move.w (a0,d5.w*4),d0
  10275.  move.b (a3,a6.w),d0
  10276.  move.w (a1,d0.w),(a3)+
  10277.  add.w a4,d3
  10278.  addx.l d6,d5
  10279.  dbcs d7,acrossscrnwr
  10280.  dbcc d7,backbeforewr
  10281.  rts
  10282.  
  10283. acrossscrnwr:
  10284.  move.w d5,d3
  10285.  move.l d5,d6
  10286.  lsr.w #8,d3
  10287.  swap d6
  10288.  move.b d3,d6
  10289.  move.w (a0,d6.w*4),d0
  10290.  add.l d2,d5
  10291.  move.w (a4,a6.w),d1
  10292.  addq #2,a4
  10293.  move.b (a3,a6.w),d1
  10294.  move.b (a5,d1.l),d0
  10295.  and.l d4,d5
  10296.  move.w (a1,d0.w),(a3)+
  10297.  dbra d7,acrossscrnwr
  10298.  rts
  10299.  
  10300. texturedwater:
  10301.  
  10302.  move.l d1,d4
  10303.  
  10304.  add.l wateroff,d5
  10305.  
  10306.  move.l TexturePal,a1
  10307.  add.l #256*16,a1
  10308.  move.l dst,d0
  10309.  asr.l #2,d0
  10310.  clr.b d0
  10311.  
  10312.  add.w d0,d0
  10313.  cmp.w #9*512,d0
  10314.  blt.s .notoowater
  10315.  move.w #9*512,d0
  10316. .notoowater:
  10317.   
  10318.  adda.w d0,a1
  10319.  
  10320.  move.l dst,d0
  10321.  asl.w #7,d0
  10322.  add.w wtan,d0
  10323.  and.w #8191,d0
  10324.  move.l #SineTable,a0
  10325.  move.w (a0,d0.w),d0
  10326.  ext.l d0
  10327.  
  10328.  move.l dst,d3
  10329.  add.w #300,d3
  10330.  divs d3,d0
  10331.  asr.w #5,d0
  10332.  addq #4,d0
  10333.  cmp.w disttobot,d0
  10334.  blt.s oknotoffbototot
  10335.  
  10336.  move.w disttobot,d0
  10337.  subq #1,d0
  10338.  
  10339. oknotoffbototot
  10340.  
  10341. ; move.w dst,d3
  10342. ; asr.w #7,d3
  10343. ; add.w d3,d0
  10344.  
  10345.  tst.b DOUBLEHEIGHT
  10346.  beq.s .nodoub
  10347.  and.b #$fe,d0
  10348. .nodoub:
  10349.  
  10350.  muls #320,d0
  10351.  tst.w above
  10352.  beq.s nonnnnneg
  10353.  neg.l d0
  10354.  
  10355. nonnnnneg:
  10356.  
  10357.  move.l d0,a6
  10358.  
  10359.  move.l watertouse,a0
  10360.  
  10361.  move.w startsmoothx,d3
  10362.  dbra d7,acrossscrnw
  10363.  rts
  10364.  
  10365. backbeforew:
  10366.  and.w d1,d5
  10367.  move.w (a0,d5.w*4),d0
  10368.  add.w d0,d0
  10369.  move.b (a3,a6.w),d0
  10370.  move.b (a1,d0.w),(a3)+
  10371.  add.w a4,d3
  10372.  addx.l d6,d5
  10373.  dbcs d7,acrossscrnw
  10374.  dbcc d7,backbeforew
  10375.  rts
  10376.  
  10377. acrossscrnw:
  10378.  move.w d5,d3
  10379.  move.l d5,d6
  10380.  lsr.w #8,d3
  10381.  swap d6
  10382.  move.b d3,d6
  10383.  move.w (a0,d6.w*4),d0
  10384.  add.w d0,d0
  10385.  add.l d2,d5
  10386.  move.b (a3,a6.w),d0
  10387.  and.l d4,d5
  10388.  move.b (a1,d0.w),(a3)+
  10389.  dbra d7,acrossscrnw
  10390.  rts
  10391.  
  10392.  
  10393. texturedwaterDOUB:
  10394.  
  10395.  move.l d1,d4
  10396.  
  10397.  add.l wateroff,d5
  10398.  
  10399.  move.l TexturePal,a1
  10400.  add.l #256*16,a1
  10401.  move.l dst,d0
  10402.  asr.l #2,d0
  10403.  clr.b d0
  10404.  
  10405.  add.w d0,d0
  10406.  cmp.w #9*512,d0
  10407.  blt.s .notoowater
  10408.  move.w #9*512,d0
  10409. .notoowater:
  10410.   
  10411.  adda.w d0,a1
  10412.  
  10413.  move.l dst,d0
  10414.  asl.w #7,d0
  10415.  add.w wtan,d0
  10416.  and.w #8191,d0
  10417.  move.l #SineTable,a0
  10418.  move.w (a0,d0.w),d0
  10419.  ext.l d0
  10420.  
  10421.  move.l dst,d3
  10422.  add.w #300,d3
  10423.  divs d3,d0
  10424.  asr.w #5,d0
  10425.  addq #4,d0
  10426.  cmp.w disttobot,d0
  10427.  blt.s .oknotoffbototot
  10428.  
  10429.  move.w disttobot,d0
  10430.  subq #1,d0
  10431.  
  10432. .oknotoffbototot
  10433.  
  10434. ; move.w dst,d3
  10435. ; asr.w #7,d3
  10436. ; add.w d3,d0
  10437.  
  10438.  tst.b DOUBLEHEIGHT
  10439.  beq.s .nodoub
  10440.  and.b #$fe,d0
  10441. .nodoub:
  10442.  
  10443.  muls #320,d0
  10444.  tst.w above
  10445.  beq.s .nonnnnneg
  10446.  neg.l d0
  10447.  
  10448. .nonnnnneg:
  10449.  
  10450.  move.l d0,a6
  10451.  
  10452.  move.l watertouse,a0
  10453.  
  10454.  add.l d2,d2
  10455.  
  10456.  move.w startsmoothx,d3
  10457.  dbra d7,acrossscrnwD
  10458.  rts
  10459.  
  10460.  
  10461. acrossscrnwD:
  10462.  move.w d5,d3
  10463.  move.l d5,d6
  10464.  lsr.w #8,d3
  10465.  swap d6
  10466.  move.b d3,d6
  10467.  move.w (a0,d6.w*4),d0
  10468.  add.w d0,d0
  10469.  add.l d2,d5
  10470.  move.b (a3,a6.w),d0
  10471.  and.l d4,d5
  10472.  move.w (a1,d0.w),(a3)+
  10473.  dbra d7,acrossscrnwD
  10474.  rts
  10475.  
  10476.  
  10477. usewater: dc.w 0
  10478.  dc.w 0
  10479. startsmoothx: dc.w 0
  10480.  dc.w 0
  10481. startsmoothz: dc.w 0
  10482.  
  10483. ********************************
  10484. *
  10485.  include "AB3:source_4000/ObjDrawHIRES.s"
  10486. *
  10487. ********************************
  10488.  
  10489. numframes:
  10490.  dc.w 0
  10491.  
  10492. alframe: dc.l 0
  10493.  
  10494. alan:
  10495.  dcb.l 8,0
  10496.  dcb.l 8,1
  10497.  dcb.l 8,2
  10498.  dcb.l 8,3
  10499. endalan:
  10500.  
  10501. alanptr: dc.l alan
  10502.  
  10503. Time2: dc.l 0
  10504. dispco:
  10505.  dc.w 0
  10506.  
  10507.  
  10508. key_interrupt:
  10509.         movem.l    d0-d7/a0-a6,-(sp)
  10510.  
  10511. ;        move.w    INTREQR,d0
  10512. ;        btst    #3,d0
  10513. ;        beq    .not_key
  10514.  
  10515.         move.b    $bfdd00,d0
  10516.         btst    #0,d0
  10517.         bne    .key_cont
  10518. ;        move.b    $bfed01,d0
  10519. ;        btst    #0,d0
  10520. ;        bne    .key_cont
  10521.     
  10522. ;        btst    #3,d0
  10523. ;        beq    .key_cont
  10524.  
  10525.         move.b    $bfec01,d0
  10526.         clr.b    $bfec01
  10527.  
  10528.         tst.b    d0
  10529.         beq    .key_cont
  10530.  
  10531. ;        bset    #6,$bfee01
  10532. ;        move.b    #$f0,$bfe401
  10533. ;        move.b    #$00,$bfe501
  10534. ;        bset    #0,$bfee01
  10535.  
  10536.  
  10537.         not.b    d0
  10538.         ror.b    #1,d0
  10539.         lea.l    KeyMap,a0
  10540.         tst.b    d0
  10541.         bmi.b    .key_up
  10542.         and.w    #$7f,d0
  10543. ;        add.w    #1,d0
  10544.         move.b    #$ff,(a0,d0.w)
  10545.         move.b    d0,lastpressed
  10546.  
  10547.         bra.b    .key_cont2
  10548. .key_up:
  10549.         and.w    #$7f,d0
  10550. ;        add.w    #1,d0
  10551.         move.b    #$00,(a0,d0.w)
  10552.  
  10553. .key_cont2
  10554. ;        btst    #0,$bfed01
  10555. ;        beq    .key_cont2
  10556. ;        move.b    #%00000000,$bfee01
  10557. ;        move.b    #%10001000,$bfed01
  10558.  
  10559. ;alt keys should not be independent so overlay ralt on lalt
  10560.  
  10561.         
  10562. .key_cont
  10563.  
  10564. ;        move.w    #$0008,INTREQ
  10565. .not_key:    ;lea.l    $dff000,a5
  10566.  
  10567. ;        lea.l    _keypressed(pc),a0
  10568. ;        move.b    101(a0),d0    ;read LALT
  10569. ;        or.b    102(a0),d0    ;blend it with RALT
  10570. ;        move.b    d0,127(a0)    ;save in combined position
  10571.  
  10572.         movem.l    (sp)+,d0-d7/a0-a6
  10573.  
  10574.         rts
  10575.  
  10576. lastpressed:    dc.b 0
  10577. KInt_CCode    Ds.b    1
  10578. KInt_Askey    Ds.b    1
  10579. KInt_OCode    Ds.w    1
  10580.  
  10581.  
  10582. OldSpace: dc.b 0
  10583. SpaceTapped: dc.b 0
  10584. PLR1_SPCTAP: dc.b 0
  10585. PLR2_SPCTAP: dc.b 0
  10586. PLR1_Ducked: dc.b 0
  10587. ;PLR2_Ducked: dc.b 0
  10588.  even
  10589.  
  10590. PLR1_Squished: dc.w 0
  10591. PLR2_Squished: dc.w 0
  10592. PLR1s_SquishedHeight: dc.l 0
  10593. PLR2s_SquishedHeight: dc.l 0
  10594.  
  10595.  include "ab3:source_4000/PLR1CONTROL.s"
  10596.  include "ab3:source_4000/PLR2CONTROL.s"
  10597.  include "ab3:source_4000/FALL.s"
  10598.  
  10599.  
  10600.  
  10601. *******************************************8
  10602.  
  10603. nullmessage: dcb.b 160,' '
  10604.  
  10605. SENDMESSAGENORET
  10606.  move.l a1,-(a7)
  10607.  bra intosend
  10608.  
  10609. SENDMESSAGE:
  10610.  
  10611.  move.l a1,-(a7)
  10612.  
  10613.  move.l MESSPTR,a1
  10614.  move.l d0,(a1)+
  10615.  cmp.l #ENDMESSBUFF,a1
  10616.  blt.s .okinbuff
  10617.  move.l #MESSAGEBUFFER,a1
  10618. .okinbuff:
  10619.  move.l a1,MESSPTR
  10620.  move.l a1,LASTMESSPTR
  10621.  
  10622. intosend:
  10623.  
  10624.  move.l d0,SCROLLPOINTER
  10625.  move.w #0,SCROLLXPOS
  10626.  add.l #160,d0
  10627.  move.l d0,ENDSCROLL
  10628.  move.w #40,SCROLLTIMER
  10629.  
  10630.  move.l (a7)+,a1
  10631.  rts
  10632.  
  10633. RETRIEVEPREVMESSAGE:
  10634.  
  10635.  move.l LASTMESSPTR,a1
  10636.  cmp.l #MESSAGEBUFFER,a1
  10637.  bgt.s .okinbuff
  10638.  
  10639.  move.l #ENDMESSBUFF,a1
  10640.  
  10641. .okinbuff:
  10642.  
  10643.  move.l -(a1),d0
  10644.  beq.s .nomessage
  10645.  
  10646.  move.l d0,SCROLLPOINTER
  10647.  move.w #0,SCROLLXPOS
  10648.  add.l #160,d0
  10649.  move.l d0,ENDSCROLL
  10650.  move.w #40,SCROLLTIMER
  10651.  
  10652.  move.l a1,LASTMESSPTR
  10653.  
  10654. .nomessage:
  10655.  
  10656.  
  10657.  rts
  10658.  
  10659. MESSAGEBUFFER:
  10660.  ds.l 20
  10661. ENDMESSBUFF:
  10662.  
  10663. MESSPTR: dc.l MESSAGEBUFFER
  10664. LASTMESSPTR: dc.l MESSAGEBUFFER
  10665.  
  10666. **********************************************
  10667.  
  10668.  
  10669.  
  10670. prot7: dc.w 0
  10671.  
  10672. GOTTOSEND: dc.w 0
  10673.  
  10674. COUNTER: dc.w 0
  10675. COUNTER2: dc.w 0
  10676. COUNTSPACE: ds.b 160
  10677.  
  10678. OtherInter:
  10679.  move.w #$0010,$dff000+intreq
  10680.  movem.l d0-d7/a0-a6,-(a7)
  10681.  bra justshake
  10682.  
  10683.     cnop 0,4
  10684.  
  10685. Chan0inter:
  10686.  
  10687.     SAVEREGS
  10688.     jsr    .routine
  10689.     GETREGS
  10690.  
  10691. ;    move.w    #1024+'.',$dff030
  10692.     
  10693.     moveq #1,d0
  10694.     rts
  10695.  
  10696. .routine
  10697.  
  10698.     
  10699. ;w move.w #$0010,$dff000+intreq
  10700.  
  10701.  tst.b doanything
  10702.  bne dosomething
  10703.  
  10704.  movem.l d0-d7/a0-a6,-(a7)
  10705.  bra JUSTSOUNDS
  10706.  
  10707.  rts
  10708.  
  10709. tabheld: dc.w 0
  10710. ObjWork: ds.l 600
  10711. WORKPTR: dc.l 0
  10712. thistime: dc.w 0
  10713.  
  10714. DOALLANIMS:
  10715.  
  10716.  sub.b #1,thistime
  10717.  ble.s .okdosome
  10718.  rts
  10719.  
  10720. .okdosome:
  10721.  move.b #5,thistime
  10722.  
  10723.  
  10724.  move.l #ObjWork,a5
  10725.  move.l ObjectData,a0
  10726. Objectloop2:
  10727.  tst.w (a0)
  10728.  blt doneallobj2
  10729.  move.w 12(a0),d0
  10730.  blt doneobj2
  10731.  move.w d0,GraphicRoom(a0)
  10732.  tst.b worry(a0)
  10733.  beq.s doneobj2
  10734.  
  10735.  move.b 16(a0),d0
  10736.  cmp.b #1,d0
  10737.  blt JUMPALIENANIM
  10738. ; beq JUMPOBJECTANIM
  10739. ; cmp.b #2,d0
  10740. ; beq JUMPBULLET
  10741.  
  10742. doneobj2:
  10743.  
  10744.  adda.w #64,a0
  10745.  addq #8,a5
  10746.  bra Objectloop2
  10747.  
  10748. doneallobj2:
  10749.  rts
  10750.  
  10751. JUMPALIENANIM:
  10752.  
  10753.  moveq #0,d0
  10754.  move.b WhichAnim(a0),d0
  10755. ; 0=walking
  10756. ; 1=attacking
  10757. ; 2=getting hit
  10758. ; 3=dying
  10759.  
  10760.  cmp.b #1,d0
  10761.  blt.s ALWALK
  10762.  beq.s ALATTACK
  10763.  
  10764.  cmp.b #3,d0
  10765.  blt ALGETHIT
  10766.  beq ALDIE
  10767.  
  10768.  bra doneobj2
  10769.  
  10770. ALDIE
  10771.  move.l #10,d0
  10772.  bra intowalk
  10773.  
  10774. ALGETHIT:
  10775.  move.l #9,d0
  10776.  bra intowalk
  10777.  
  10778. ALATTACK:
  10779.  move.l #8,d0
  10780.  bra intowalk
  10781.  
  10782. AUXOBJ: dc.w 0
  10783.  
  10784. ALWALK:
  10785.  
  10786. ; jsr ViewpointToDraw
  10787. ; add.l d0,d0
  10788. ; 
  10789. ; move.l LINKFILE,a6
  10790. ; add.l #AlienStats,a6
  10791. ; moveq #0,d1
  10792. ; move.b TypeOfThing(a0),d1
  10793. ; muls #AlienStatLen,d1
  10794. ; add.l d1,a6
  10795. ; cmp.w #1,A_GFXType(a6)
  10796. ; bne.s NOSIDES2
  10797.  
  10798.  moveq #0,d0
  10799. intowalk:
  10800.  
  10801. NOSIDES2:
  10802.  
  10803.  move.b d0,2(a5)
  10804.  move.l LINKFILE,a6
  10805.  
  10806.  add.l #AlienAnimData,a6
  10807.  
  10808.  moveq #0,d1
  10809.  move.b TypeOfThing(a0),d1
  10810.  move.w .valtables+4(pc,d1.w*8),d1
  10811. ; muls #A_AnimLen,d1
  10812.  add.l d1,a6
  10813.  
  10814. ; move.l ANIMPOINTER,a6
  10815.  
  10816. ; muls #A_OptLen,d0
  10817.  move.w .valtables+2(pc,d0.w*8),d0
  10818.  add.w d0,a6
  10819.  
  10820.  move.w SecTimer(a0),d1
  10821.  move.w d1,d2
  10822. ; muls #A_FrameLen,d1
  10823.  move.w .valtables(pc,d1.w*8),d1
  10824.  
  10825.  moveq #0,d0
  10826.  move.b 5(a6,d1.w),d0
  10827.  beq.s .nosoundmake
  10828.  
  10829.  movem.l d0-d7/a0-a6,-(a7)
  10830.  subq #1,d0
  10831.  move.w d0,Samplenum
  10832.  clr.b notifplaying
  10833.  move.w (a0),IDNUM
  10834.  move.w #80,Noisevol
  10835.  move.l #ObjRotated,a1
  10836.  move.w (a0),d0
  10837.  lea (a1,d0.w*8),a1
  10838.  move.l (a1),Noisex
  10839.  jsr MakeSomeNoise
  10840.  movem.l (a7)+,d0-d7/a0-a6
  10841. .nosoundmake
  10842.  
  10843.  move.b 6(a6,d1.w),d0
  10844.  beq.s .noaction
  10845.  add.b #1,(a5)
  10846.  move.b d2,1(a5)
  10847. .noaction
  10848.  
  10849.  addq #1,d2
  10850.  
  10851.  moveq #0,d0
  10852.  move.b 7(a6,d1.w),d0
  10853.  beq .nospecial
  10854.  bra .special
  10855.  
  10856. .valtables:
  10857. val SET 0
  10858.  REPT 20
  10859.  dc.w A_FrameLen*val,A_OptLen*val
  10860.  dc.w A_AnimLen*val,0
  10861. val SET val+1
  10862.  ENDR
  10863.  
  10864. .special
  10865.  move.b d0,d3
  10866.  and.w #63,d3
  10867.  lsr.w #6,d0
  10868.  cmp.w #2,d0
  10869.  blt.s .storeval
  10870.  beq.s .randval
  10871.  
  10872.  sub.b #1,4(a5)
  10873.  beq.s .nospecial
  10874.  
  10875.  move.w d3,d2
  10876.  bra.s .nospecial
  10877.  
  10878. .randval:
  10879.  jsr GetRand
  10880.  divs d3,d0
  10881.  swap d0
  10882.  move.w d0,d3
  10883.  
  10884. .storeval:
  10885.  move.b d3,4(a5)
  10886. .nospecial:
  10887.  
  10888. ; move.w d2,d3
  10889.  move.w .valtables2(pc,d2.w*8),d3
  10890. ; muls #A_FrameLen,d3
  10891.  tst.b (a6,d3.w)
  10892.  bge.s .noendanim
  10893.  st 3(a5)
  10894.  move.w #0,d2
  10895. .noendanim
  10896.  move.w d2,SecTimer(a0)
  10897.  
  10898.  bra doneobj2
  10899.  
  10900. .valtables2:
  10901. val SET 0
  10902.  REPT 20
  10903.  dc.w A_FrameLen*val,A_OptLen*val
  10904.  dc.w A_AnimLen*val,0
  10905. val SET val+1
  10906.  ENDR
  10907.  
  10908.  
  10909. JUMPOBJECTANIM:
  10910.  bra doneobj2
  10911.  
  10912. timetodamage: dc.w 0
  10913. SAVESAVE: dc.w 0
  10914.  
  10915. dosomething:
  10916.  
  10917.  
  10918.  
  10919.  addq.w #1,FramesToDraw
  10920.  movem.l d0-d7/a0-a6,-(a7)
  10921.  
  10922.  jsr NARRATOR
  10923.  
  10924.  bsr DOALLANIMS
  10925.  
  10926.  sub.w #1,timetodamage
  10927.  bgt.s .nodam
  10928.  
  10929.  move.w #100,timetodamage
  10930.  
  10931.  move.l PLR1_Roompt,a0
  10932.  move.w ToFloorNoise(a0),d0
  10933.  tst.b PLR1_StoodInTop
  10934.  beq.s .okinbot
  10935.  move.w ToUpperFloorNoise(a0),d0
  10936. .okinbot:
  10937.  
  10938.  move.l LINKFILE,a0
  10939.  add.l #FloorData,a0
  10940.  move.w (a0,d0.w*4),d0    ; damage. 
  10941.  move.l PLR1_Obj,a0
  10942.  add.b d0,damagetaken(a0)
  10943.  
  10944.  move.l PLR2_Roompt,a0
  10945.  move.w ToFloorNoise(a0),d0
  10946.  tst.b PLR2_StoodInTop
  10947.  beq.s .okinbot2
  10948.  move.w ToUpperFloorNoise(a0),d0
  10949. .okinbot2:
  10950.  
  10951.  move.l LINKFILE,a0
  10952.  add.l #FloorData,a0
  10953.  move.w (a0,d0.w*4),d0    ; damage. 
  10954.  
  10955.  move.l PLR2_Obj,a0
  10956.  add.b d0,damagetaken(a0)
  10957.  
  10958. .nodam:
  10959.  
  10960.  move.l #KeyMap,a5
  10961.  
  10962.  tst.b 82(a5)    ;f3
  10963.  beq notogglesound
  10964.  
  10965.  tst.b lasttogsound
  10966.  bne notogglesound2
  10967.  
  10968.  st lasttogsound
  10969.  
  10970.  move.w TOPPOPT,d0
  10971.  addq #1,d0
  10972.  and.w #3,d0
  10973.  move.w d0,TOPPOPT
  10974.  move.b STEROPT(pc,d0.w*2),STEREO
  10975.  
  10976.  
  10977.  move.b STEROPT+1(pc,d0.w*2),d1
  10978.  muls #160,d0
  10979.  add.l #SOUNDOPTSTEXT,d0
  10980.  jsr SENDMESSAGE
  10981.  
  10982.  
  10983.  move.b d1,Prefsfile+1
  10984.  
  10985.  bra pastster
  10986.  
  10987.  STEROPT:
  10988.  dc.b 0,4
  10989.  dc.b $FF,4
  10990.  dc.b 0,8
  10991.  dc.b $ff,8
  10992.  
  10993. lasttogsound: dc.w 0
  10994.  
  10995. SOUNDOPTSTEXT:
  10996. ;      1234567890123456789012345678901234567890
  10997.  dc.b "Four Channel Mono Selected              "
  10998.  dc.b "                                        "
  10999.  dc.b "                                        "
  11000.  dc.b "                                        "
  11001.  
  11002.  dc.b "Four Channel Stereo Selected            "
  11003.  dc.b "                                        "
  11004.  dc.b "                                        "
  11005.  dc.b "                                        "
  11006.  
  11007.  dc.b "Eight Channel Mono Selected             "
  11008.  dc.b "                                        "
  11009.  dc.b "                                        "
  11010.  dc.b "                                        "
  11011.  
  11012.  dc.b "Eight Channel Stereo Selected           "
  11013.  dc.b "                                        "
  11014.  dc.b "                                        "
  11015.  dc.b "                                        "
  11016.  
  11017. LIGHTING: dc.w $FFff
  11018. OLDLTOG: dc.w 0
  11019.  
  11020. pastster:
  11021.  
  11022.  cmp.b #'4',d1
  11023.  seq.s CHANNELDATA+8
  11024.  seq.s CHANNELDATA+12
  11025.  seq.s CHANNELDATA+24
  11026.  seq.s CHANNELDATA+28
  11027.  
  11028. * Mt_init *********************
  11029.  st CHANNELDATA+8
  11030.  st CHANNELDATA
  11031. *******************************
  11032.  
  11033.  move.w #$f,$dff000+dmacon
  11034.  move.l #null,$dff0a0
  11035.  move.w #100,$dff0a4
  11036.  move.w #443,$dff0a6
  11037.  move.w #63,$dff0a8
  11038.  
  11039.  move.l #null2,$dff0b0
  11040.  move.w #100,$dff0b4
  11041.  move.w #443,$dff0b6
  11042.  move.w #63,$dff0b8
  11043.  
  11044.  move.l #null4,$dff0c0
  11045.  move.w #100,$dff0c4
  11046.  move.w #443,$dff0c6
  11047.  move.w #63,$dff0c8
  11048.  
  11049.  move.l #null3,$dff0d0
  11050.  move.w #100,$dff0d4
  11051.  move.w #443,$dff0d6
  11052.  move.w #63,$dff0d8
  11053.  
  11054.  move.l #empty,pos0LEFT
  11055.  move.l #empty,pos1LEFT
  11056.  move.l #empty,pos2LEFT
  11057.  move.l #empty,pos3LEFT
  11058.  move.l #empty,pos0RIGHT
  11059.  move.l #empty,pos1RIGHT
  11060.  move.l #empty,pos2RIGHT
  11061.  move.l #empty,pos3RIGHT
  11062.  move.l #emptyend,Samp0endLEFT
  11063.  move.l #emptyend,Samp1endLEFT
  11064.  move.l #emptyend,Samp2endLEFT
  11065.  move.l #emptyend,Samp3endLEFT
  11066.  move.l #emptyend,Samp0endRIGHT
  11067.  move.l #emptyend,Samp1endRIGHT
  11068.  move.l #emptyend,Samp2endRIGHT
  11069.  move.l #emptyend,Samp3endRIGHT
  11070.  
  11071.  move.w #10,d3
  11072. .willy
  11073.  btst #0,$dff000+intreqrl
  11074.  beq.s .willy
  11075.  move.w #1,$dff000+intreq
  11076.  
  11077.  dbra d3,.willy
  11078.  
  11079.  move.w #$820f,$dff000+dmacon
  11080.  
  11081.  bra notogglesound2
  11082.  
  11083. Prefsfile:
  11084.  dc.b 'k4nx'
  11085.  
  11086. notogglesound:
  11087.  clr.b lasttogsound
  11088. notogglesound2:
  11089.  
  11090.  
  11091.  tst.b 83(a5)
  11092.  beq nolighttoggle
  11093.  tst.b OLDLTOG
  11094.  bne nolighttoggle2
  11095.  st OLDLTOG
  11096.  
  11097.  move.l #LIGHTINGTEXT,d0
  11098.  not.b LIGHTING
  11099.  beq.s .noon
  11100.  add.l #160,d0
  11101. .noon:
  11102.  bra pastlighttext
  11103.  
  11104. LIGHTINGTEXT:
  11105.  dc.b "Lighting Effects Deactivated            "
  11106.  dc.b "                                        "
  11107.  dc.b "                                        "
  11108.  dc.b "                                        "
  11109.  
  11110.  dc.b "Lighting Effects Activated              "
  11111.  dc.b "                                        "
  11112.  dc.b "                                        "
  11113.  dc.b "                                        "
  11114.  
  11115. OLDRET: dc.w 0
  11116. OLDCENT: dc.w 0
  11117. OLDGOOD: dc.w 0
  11118.  
  11119. GOODRENDERTXT:
  11120.  dc.b "Rendering Quality : High                "
  11121.  dc.b "                                        "
  11122.  dc.b "                                        "
  11123.  dc.b "                                        "
  11124. BADRENDERTXT:
  11125.  dc.b "Rendering Quality : Reduced             "
  11126.  dc.b "                                        "
  11127.  dc.b "                                        "
  11128.  dc.b "                                        "
  11129.  
  11130. pastlighttext:
  11131.  
  11132.  jsr SENDMESSAGE
  11133.  
  11134. ; move.l d0,SCROLLPOINTER
  11135. ; move.w #0,SCROLLXPOS
  11136. ; add.l #160,d0
  11137. ; move.l d0,ENDSCROLL
  11138. ; move.w #40,SCROLLTIMER 
  11139.  
  11140.  bra nolighttoggle2
  11141.  
  11142. nolighttoggle:
  11143.  clr.b OLDLTOG
  11144. nolighttoggle2:
  11145.  
  11146.  
  11147.  tst.b 84(a5)
  11148.  beq.s noret
  11149.  tst.b OLDRET
  11150.  bne.s noret2
  11151.  st OLDRET
  11152.  
  11153.  jsr RETRIEVEPREVMESSAGE
  11154.  
  11155.  bra noret2
  11156.  
  11157. noret
  11158.  clr.b OLDRET
  11159. noret2:
  11160.  
  11161.  tst.b 85(a5)
  11162.  beq.s .nogood
  11163.  tst.b OLDGOOD
  11164.  bne.s .nogood2
  11165.  st OLDGOOD
  11166.  
  11167.  move.l #GOODRENDERTXT,d0
  11168.  not.b GOODRENDER
  11169.  bne.s .okgood
  11170.  move.l #BADRENDERTXT,d0
  11171. .okgood:
  11172.  
  11173.  jsr SENDMESSAGE
  11174.  
  11175.  bra .nogood2
  11176.  
  11177. .nogood
  11178.  clr.b OLDGOOD
  11179. .nogood2:
  11180.  
  11181.  
  11182.  tst.b $42(a5)
  11183.  bne.s .tabprsd
  11184.  clr.b tabheld
  11185.  bra.s .noswitch
  11186.  
  11187. .tabprsd:
  11188.  tst.b tabheld
  11189.  bne.s .noswitch
  11190.  not.b MAPON
  11191.  st tabheld
  11192. .noswitch
  11193.  
  11194.  tst.b $3e(a5)
  11195.  sne d0
  11196.  tst.b $1e(a5)
  11197.  sne d1
  11198.  tst.b $2d(a5)
  11199.  sne d2
  11200.  tst.b $2f(a5)
  11201.  sne d3
  11202.  
  11203.  tst.b $3d(a5)
  11204.  sne d4
  11205.  tst.b $3f(a5)
  11206.  sne d5
  11207.  tst.b $1d(a5)
  11208.  sne d6
  11209.  tst.b $1f(a5)
  11210.  sne d7
  11211.  
  11212.  or.b d4,d0
  11213.  or.b d5,d0
  11214.  or.b d6,d1
  11215.  or.b d7,d1
  11216.  or.b d4,d2
  11217.  or.b d6,d2
  11218.  or.b d7,d3
  11219.  or.b d5,d3
  11220.  
  11221.  move.w MAPBRIGHT,d4
  11222.  add.w #2,d4
  11223.  clr.l d5
  11224.  bset d4,d5
  11225.  
  11226.  tst.b d0
  11227.  beq.s .nomapup
  11228.  sub.w d5,mapzoff
  11229. .nomapup 
  11230.  
  11231.  tst.b d1
  11232.  beq.s .nomapdown
  11233.  add.w d5,mapzoff
  11234. .nomapdown 
  11235.  
  11236.  tst.b d2
  11237.  beq.s .nomapleft
  11238.  add.w d5,mapxoff
  11239. .nomapleft 
  11240.  
  11241.  tst.b d3
  11242.  beq.s .nomapright
  11243.  sub.w d5,mapxoff
  11244. .nomapright 
  11245.  
  11246.  tst.b $2e(a5)
  11247.  beq.s .nomapcentre
  11248.  
  11249.  move.w #0,mapxoff
  11250.  move.w #0,mapzoff
  11251.  
  11252. .nomapcentre
  11253.  
  11254. ; move.w STOPOFFSET,d0
  11255. ; tst.b 27(a5)
  11256. ; beq.s .nolookup
  11257. ; sub.w #5,d0
  11258. ; cmp.w #-80,d0
  11259. ; bgt.s .nolookup
  11260. ; move.w #-80,d0
  11261. ;.nolookup:
  11262. ; tst.b 42(a5)
  11263. ; beq.s .nolookdown
  11264. ; add.w #5,d0
  11265. ; cmp.w #80,d0
  11266. ; blt.s .nolookdown
  11267. ; move.w #80,d0
  11268. ;.nolookdown:
  11269. ;
  11270. ; move.w d0,STOPOFFSET
  11271. ; neg.w d0
  11272. ; add.w #120,d0
  11273. ; move.w d0,SMIDDLEY
  11274. ; muls #320*2,d0
  11275. ; move.l d0,SBIGMIDDLEY
  11276.  
  11277.  
  11278. ; jsr INITREC
  11279. ; jsr RECEIVE
  11280.  
  11281. ; tst.l BUFFER
  11282. ; beq.s justshake
  11283. ; st GOTTOSEND
  11284. ; move.l #OtherInter,$6c
  11285.  
  11286. justshake:
  11287.  
  11288. ; cmp.b #'b',Prefsfile+3
  11289. ; bne.s .noback
  11290.  
  11291.  
  11292.  jsr mt_music
  11293.  
  11294.  
  11295.  
  11296. ;.noback:
  11297.  
  11298.  bra dontshowtime
  11299.  
  11300.  tst.b oktodisplay
  11301.  beq dontshowtime
  11302.  clr.b oktodisplay
  11303.  subq.w #1,dispco
  11304.  bgt dontshowtime
  11305.  move.w #10,dispco
  11306.  
  11307.  move.l #TimerScr+10,a0
  11308.  move.l TimeCount,d0
  11309.  bge.s timenotneg
  11310.  move.l #1111*256,d0
  11311. timenotneg:
  11312.  asr.l #8,d0
  11313.  move.l #digits,a1
  11314.  move.w #7,d2
  11315. digitlop
  11316.  divs #10,d0
  11317.  swap d0
  11318.  lea (a1,d0.w*8),a2
  11319.  move.b (a2)+,(a0)
  11320.  move.b (a2)+,24(a0)
  11321.  move.b (a2)+,24*2(a0)
  11322.  move.b (a2)+,24*3(a0)
  11323.  move.b (a2)+,24*4(a0)
  11324.  move.b (a2)+,24*5(a0)
  11325.  move.b (a2)+,24*6(a0)
  11326.  move.b (a2)+,24*7(a0)
  11327.  subq #1,a0
  11328.  swap d0
  11329.  ext.l d0
  11330.  dbra d2,digitlop
  11331.  
  11332.  move.l #TimerScr+10+24*10,a0
  11333.  move.l NumTimes,d0
  11334.  move.l #digits,a1
  11335.  move.w #3,d2
  11336. digitlop2
  11337.  divs #10,d0
  11338.  swap d0
  11339.  lea (a1,d0.w*8),a2
  11340.  move.b (a2)+,(a0)
  11341.  move.b (a2)+,24(a0)
  11342.  move.b (a2)+,24*2(a0)
  11343.  move.b (a2)+,24*3(a0)
  11344.  move.b (a2)+,24*4(a0)
  11345.  move.b (a2)+,24*5(a0)
  11346.  move.b (a2)+,24*6(a0)
  11347.  move.b (a2)+,24*7(a0)
  11348.  subq #1,a0
  11349.  swap d0
  11350.  ext.l d0
  11351.  dbra d2,digitlop2
  11352.  
  11353.  move.l #TimerScr+10+24*20,a0
  11354.  moveq #0,d0
  11355.  move.w FramesToDraw,d0
  11356.  move.l #digits,a1
  11357.  move.w #2,d2
  11358. digitlop3
  11359.  divs #10,d0
  11360.  swap d0
  11361.  lea (a1,d0.w*8),a2
  11362.  move.b (a2)+,(a0)
  11363.  move.b (a2)+,24(a0)
  11364.  move.b (a2)+,24*2(a0)
  11365.  move.b (a2)+,24*3(a0)
  11366.  move.b (a2)+,24*4(a0)
  11367.  move.b (a2)+,24*5(a0)
  11368.  move.b (a2)+,24*6(a0)
  11369.  move.b (a2)+,24*7(a0)
  11370.  subq #1,a0
  11371.  swap d0
  11372.  ext.l d0
  11373.  dbra d2,digitlop3
  11374.  
  11375. dontshowtime:
  11376.  
  11377.  
  11378.  move.l alanptr,a0
  11379.  move.l (a0)+,alframe
  11380.  cmp.l #endalan,a0
  11381.  blt.s nostartalan
  11382.  move.l #alan,a0
  11383. nostartalan:
  11384.  move.l a0,alanptr
  11385.  
  11386.  
  11387.  tst.b READCONTROLS
  11388.  beq nocontrols
  11389.  
  11390.  cmp.b #'s',mors
  11391.  beq control2
  11392.  
  11393.  tst.w PLAYERONEHEALTH
  11394.  bgt .propercontrol
  11395.  
  11396.  move.l #7*2116,hitcol
  11397.  move.l #PLR1_Obj,a0
  11398.  move.w #-1,12+128(a0)
  11399.  
  11400.  clr.b PLR1_fire
  11401.  clr.b PLR1_clicked
  11402.  move.w #0,ADDTOBOBBLE
  11403.  move.l #playercrouched,PLR1s_height
  11404.  move.w #-80,d0
  11405.  move.w d0,STOPOFFSET
  11406.  neg.w d0
  11407.  add.w TOTHEMIDDLE,d0
  11408.  move.w d0,SMIDDLEY
  11409.  muls #320,d0
  11410.  move.l d0,SBIGMIDDLEY
  11411.  jsr PLR1_fall
  11412.  
  11413.  move.l PLR1s_xspdval,d6
  11414.  move.l PLR1s_zspdval,d7
  11415.  
  11416.  tst.b SLOWDOWN
  11417.  beq.s .nofriction
  11418.  
  11419.  neg.l d6
  11420.  ble.s .nobug1
  11421.  asr.l #3,d6
  11422.  add.l #1,d6
  11423.  bra.s .bug1
  11424. .nobug1
  11425.  asr.l #3,d6
  11426. .bug1:
  11427.  
  11428.  neg.l d7
  11429.  ble.s .nobug2
  11430.  asr.l #3,d7
  11431.  add.l #1,d7
  11432.  bra.s .bug2
  11433. .nobug2
  11434.  asr.l #3,d7
  11435. .bug2: 
  11436.  
  11437.  add.l d6,PLR1s_xspdval
  11438.  add.l d7,PLR1s_zspdval
  11439.  
  11440. .nofriction:
  11441.  move.l PLR1s_xspdval,d6
  11442.  move.l PLR1s_zspdval,d7
  11443.  add.l d6,PLR1s_xoff
  11444.  add.l d7,PLR1s_zoff
  11445.  
  11446.  move.w PLR1s_angspd,d3
  11447.  tst.b SLOWDOWN
  11448.  beq.s .nofric
  11449.  asr.w #2,d3
  11450.  bge.s .nneg
  11451.  addq #1,d3
  11452. .nneg:
  11453. .nofric:
  11454.  
  11455.  move.w d3,PLR1s_angspd
  11456.  add.w d3,PLR1s_angpos
  11457.  add.w d3,PLR1s_angpos
  11458.  and.w #8190,PLR1s_angpos
  11459.  
  11460.  bra nocontrols
  11461.  
  11462. .propercontrol:
  11463.  
  11464.  tst.b PLR1MOUSE
  11465.  beq.s PLR1_nomouse
  11466.  bsr PLR1_mouse_control
  11467. PLR1_nomouse:
  11468.  tst.b PLR1KEYS
  11469.  beq.s PLR1_nokeys
  11470.  bsr PLR1_keyboard_control
  11471. PLR1_nokeys:
  11472. ; tst.b PLR1PATH
  11473. ; beq.s PLR1_nopath
  11474. ; bsr PLR1_follow_path
  11475. ;PLR1_nopath:
  11476.  tst.b PLR1JOY
  11477.  beq.s PLR1_nojoy
  11478.  bsr PLR1_JoyStick_control
  11479. PLR1_nojoy: 
  11480.  bra nocontrols
  11481.  
  11482. control2:
  11483.  
  11484.  tst.w PLAYERTWOHEALTH
  11485.  bgt .propercontrol
  11486.  
  11487.  move.l #7*2116,hitcol
  11488.  move.l #PLR1_Obj,a0
  11489.  move.w #-1,12+128(a0)
  11490.  clr.b PLR2_fire
  11491.  move.w #0,ADDTOBOBBLE
  11492.  move.l #playercrouched,PLR2s_height
  11493.  move.w #-80,d0
  11494.  move.w d0,STOPOFFSET
  11495.  neg.w d0
  11496.  add.w TOTHEMIDDLE,d0
  11497.  move.w d0,SMIDDLEY
  11498.  muls #320,d0
  11499.  move.l d0,SBIGMIDDLEY
  11500.  jsr PLR2_fall
  11501.  
  11502.  move.l PLR2s_xspdval,d6
  11503.  move.l PLR2s_zspdval,d7
  11504.  
  11505.  tst.b SLOWDOWN
  11506.  beq.s .nofriction
  11507.  
  11508.  neg.l d6
  11509.  ble.s .nobug1
  11510.  asr.l #3,d6
  11511.  add.l #1,d6
  11512.  bra.s .bug1
  11513. .nobug1
  11514.  asr.l #3,d6
  11515. .bug1:
  11516.  
  11517.  neg.l d7
  11518.  ble.s .nobug2
  11519.  asr.l #3,d7
  11520.  add.l #1,d7
  11521.  bra.s .bug2
  11522. .nobug2
  11523.  asr.l #3,d7
  11524. .bug2: 
  11525.  
  11526.  add.l d6,PLR2s_xspdval
  11527.  add.l d7,PLR2s_zspdval
  11528.  
  11529. .nofriction:
  11530.  move.l PLR2s_xspdval,d6
  11531.  move.l PLR2s_zspdval,d7
  11532.  add.l d6,PLR2s_xoff
  11533.  add.l d7,PLR2s_zoff
  11534.  
  11535.  move.w PLR2s_angspd,d3
  11536.  tst.b SLOWDOWN
  11537.  beq.s .nofric
  11538.  asr.w #2,d3
  11539.  bge.s .nneg
  11540.  addq #1,d3
  11541. .nneg:
  11542. .nofric:
  11543.  
  11544.  move.w d3,PLR2s_angspd
  11545.  add.w d3,PLR2s_angpos
  11546.  add.w d3,PLR2s_angpos
  11547.  and.w #8190,PLR2s_angpos
  11548.  
  11549.  bra.s nocontrols
  11550.  
  11551. .propercontrol:
  11552.  tst.b PLR2MOUSE
  11553.  beq.s PLR2_nomouse
  11554.  bsr PLR2_mouse_control
  11555. PLR2_nomouse:
  11556.  tst.b PLR2KEYS
  11557.  beq.s PLR2_nokeys
  11558.  bsr PLR2_keyboard_control
  11559. PLR2_nokeys:
  11560. ; tst.b PLR2PATH
  11561. ; beq.s PLR2_nopath
  11562. ; bsr PLR1_follow_path
  11563. ;PLR2_nopath:
  11564.  tst.b PLR2JOY
  11565.  beq.s PLR2_nojoy
  11566.  bsr PLR2_JoyStick_control
  11567. PLR2_nojoy: 
  11568.  
  11569.  
  11570. nocontrols:
  11571.  
  11572.  move.l #$dff000,a6
  11573.  
  11574.  cmp.b #'4',Prefsfile+1
  11575.  bne.s nomuckabout
  11576.  
  11577.  move.w #$0,d0 
  11578.  tst.b NoiseMade0LEFT
  11579.  beq.s noturnoff0
  11580.  move.w #1,d0
  11581. noturnoff0:
  11582.  tst.b NoiseMade0RIGHT
  11583.  beq.s noturnoff1
  11584.  or.w #2,d0
  11585. noturnoff1:
  11586.  tst.b NoiseMade1RIGHT
  11587.  beq.s noturnoff2
  11588.  or.w #4,d0
  11589. noturnoff2:
  11590.  tst.b NoiseMade1LEFT
  11591.  beq.s noturnoff3
  11592.  or.w #8,d0
  11593. noturnoff3:
  11594.  
  11595. *********************
  11596.  and.w #$fffe,d0
  11597. *********************
  11598.  
  11599.     move.w d0,dmacon(a6)
  11600.  
  11601. nomuckabout:
  11602.  
  11603.  
  11604. ; tst.b PLR2_fire
  11605. ; beq.s firenotpressed2
  11606. ; fire was pressed last time.
  11607. ; btst #7,$bfe001
  11608. ; bne.s firenownotpressed2
  11609. ; fire is still pressed this time.
  11610. ; st PLR2_fire
  11611. ; bra dointer
  11612.  
  11613. firenownotpressed2:
  11614. ; fire has been released.
  11615. ; clr.b PLR2_fire
  11616. ; bra dointer
  11617.  
  11618. firenotpressed2
  11619.  
  11620. ; fire was not pressed last frame...
  11621.  
  11622. ; btst #7,$bfe001
  11623. ; if it has still not been pressed, go back above
  11624. ; bne.s firenownotpressed2
  11625. ; fire was not pressed last time, and was this time, so has
  11626. ; been clicked.
  11627. ; st PLR2_clicked
  11628. ; st PLR2_fire
  11629.  
  11630. dointer
  11631.  
  11632. JUSTSOUNDS:
  11633.  
  11634.  tst.b dosounds
  11635.  beq.s .notthing
  11636.  
  11637.  jsr FLUSHSOUNDQUEUE
  11638.  
  11639.  cmp.b #'4',Prefsfile+1
  11640.     beq fourchannel
  11641.  
  11642.  btst #1,$dff000+intreqr
  11643.     bne.s newsampbitl
  11644.  
  11645. .notthing:
  11646.  
  11647.  movem.l (a7)+,d0-d7/a0-a6
  11648.  
  11649.  moveq #0,d0
  11650.  rts
  11651.  
  11652.  
  11653. dosounds: dc.w 0
  11654.  
  11655. swappedem: dc.w 0
  11656.  
  11657. newsampbitl:
  11658.  
  11659.  
  11660.  
  11661.  move.w #$200,$dff000+intreq
  11662.  
  11663.  tst.b CHANNELDATA
  11664.  bne nochannel0
  11665.  
  11666.  move.l pos0LEFT,a0
  11667.  move.l pos2LEFT,a1
  11668.  
  11669.  move.l #tab,a2
  11670.  
  11671.  moveq #0,d0
  11672.  moveq #0,d1
  11673.  move.b vol0left,d0
  11674.  move.b vol2left,d1
  11675.  cmp.b d1,d0
  11676.  slt swappedem
  11677.  bge.s fbig0
  11678.  
  11679. ; d1 is bigger so scale d0 and use d1
  11680. ; as audiochannel volume.
  11681.  
  11682.  exg a0,a1
  11683.  asl.w #6,d0
  11684.  divs d1,d0
  11685.  lsl.w #8,d0
  11686.  adda.w d0,a2
  11687.  move.w d1,$dff0a8
  11688.  bra.s donechan0
  11689.  
  11690. fbig0:
  11691.  tst.w d0
  11692.  beq.s donechan0
  11693.  asl.w #6,d1
  11694.  divs d0,d1
  11695.  lsl.w #8,d1
  11696.  adda.w d1,a2
  11697.  move.w d0,$dff0a8
  11698.  
  11699. donechan0:
  11700.  
  11701.  move.l Aupt0,a3
  11702.  move.l a3,$dff0a0
  11703.  move.l Auback0,Aupt0
  11704.  move.l a3,Auback0
  11705.  
  11706.  move.l Auback0,a3
  11707.  
  11708.  moveq #0,d0
  11709.  moveq #0,d1
  11710.  moveq #0,d2
  11711.  moveq #0,d3
  11712.  moveq #0,d4
  11713.  moveq #0,d5
  11714.  move.w #49,d7
  11715. loop:
  11716.  move.l (a0)+,d0
  11717.  move.b (a1)+,d1
  11718.  move.b (a1)+,d2
  11719.  move.b (a1)+,d3
  11720.  move.b (a1)+,d4
  11721.  move.b (a2,d3.w),d5
  11722.  swap d5
  11723.  move.b (a2,d1.w),d5
  11724.  asl.l #8,d5
  11725.  move.b (a2,d2.w),d5
  11726.  swap d5
  11727.  move.b (a2,d4.w),d5
  11728.  add.l d5,d0
  11729.  move.l d0,(a3)+
  11730.  dbra d7,loop
  11731.  
  11732.  tst.b swappedem
  11733.  beq.s .ok23
  11734.  exg a0,a1
  11735. .ok23:
  11736.  
  11737.  cmp.l Samp0endLEFT,a0
  11738.  blt.s .notoffendsamp1
  11739.  move.l #empty,a0
  11740.  move.l #emptyend,Samp0endLEFT
  11741.  move.b #0,vol0left
  11742.  clr.w LEFTCHANDATA+32
  11743.  move.w #0,LEFTCHANDATA+2
  11744. .notoffendsamp1:
  11745.  
  11746.  cmp.l Samp2endLEFT,a1
  11747.  blt.s .notoffendsamp2
  11748.  move.l #empty,a1
  11749.  move.l #emptyend,Samp2endLEFT
  11750.  move.b #0,vol2left
  11751.  clr.w LEFTCHANDATA+32+8
  11752.  move.w #0,LEFTCHANDATA+2+8
  11753. .notoffendsamp2:
  11754.  
  11755.  move.l a0,pos0LEFT
  11756.  move.l a1,pos2LEFT
  11757.  
  11758. nochannel0:
  11759.  
  11760.  tst.b CHANNELDATA+16
  11761.  bne nochannel1
  11762.  
  11763.  
  11764.  move.l pos0RIGHT,a0
  11765.  move.l pos2RIGHT,a1
  11766.  
  11767.  move.l Aupt1,a3
  11768.  move.l a3,$dff0b0
  11769.  move.l Auback1,Aupt1
  11770.  move.l a3,Auback1
  11771.  
  11772.  move.l #tab,a2
  11773.  
  11774.  moveq #0,d0
  11775.  moveq #0,d1
  11776.  move.b vol0right,d0
  11777.  move.b vol2right,d1
  11778.  cmp.b d1,d0
  11779.  slt swappedem
  11780.  bge.s fbig1
  11781.  
  11782. ; d1 is bigger so scale d0 and use d1
  11783. ; as audiochannel volume.
  11784.  
  11785.  exg a0,a1
  11786.  asl.w #6,d0
  11787.  divs d1,d0
  11788.  lsl.w #8,d0
  11789.  adda.w d0,a2
  11790.  move.w d1,$dff0b8
  11791.  bra.s donechan1
  11792.  
  11793. fbig1:
  11794.  tst.w d0
  11795.  beq.s donechan1
  11796.  asl.w #6,d1
  11797.  divs d0,d1
  11798.  lsl.w #8,d1
  11799.  adda.w d1,a2
  11800.  move.w d0,$dff0b8
  11801.  
  11802. donechan1:
  11803.  moveq #0,d0
  11804.  moveq #0,d1
  11805.  moveq #0,d2
  11806.  moveq #0,d3
  11807.  moveq #0,d4
  11808.  moveq #0,d5
  11809.  move.w #49,d7
  11810. loop2:
  11811.  move.l (a0)+,d0
  11812.  move.b (a1)+,d1
  11813.  move.b (a1)+,d2
  11814.  move.b (a1)+,d3
  11815.  move.b (a1)+,d4
  11816.  move.b (a2,d3.w),d5
  11817.  swap d5
  11818.  move.b (a2,d1.w),d5
  11819.  asl.l #8,d5
  11820.  move.b (a2,d2.w),d5
  11821.  swap d5
  11822.  move.b (a2,d4.w),d5
  11823.  add.l d5,d0
  11824.  move.l d0,(a3)+
  11825.  dbra d7,loop2
  11826.  
  11827.  tst.b swappedem
  11828.  beq.s ok01
  11829.  exg a0,a1
  11830. ok01:
  11831.  
  11832.  cmp.l Samp0endRIGHT,a0
  11833.  blt.s .notoffendsamp1
  11834.  move.l #empty,a0
  11835.  move.l #emptyend,Samp0endRIGHT
  11836.  move.b #0,vol0right
  11837.  clr.w RIGHTCHANDATA+32
  11838.  move.w #0,RIGHTCHANDATA+2
  11839. .notoffendsamp1:
  11840.  
  11841.  cmp.l Samp2endRIGHT,a1
  11842.  blt.s .notoffendsamp2
  11843.  move.l #empty,a1
  11844.  move.l #emptyend,Samp2endRIGHT
  11845.  move.b #0,vol2right
  11846.  clr.w RIGHTCHANDATA+32+8
  11847.  move.w #0,RIGHTCHANDATA+2+8
  11848. .notoffendsamp2:
  11849.  
  11850.  move.l a0,pos0RIGHT
  11851.  move.l a1,pos2RIGHT
  11852.  
  11853. nochannel1:
  11854.  
  11855. ******************* Other two channels
  11856.  
  11857.  move.l pos1LEFT,a0
  11858.  move.l pos3LEFT,a1
  11859.  
  11860.  move.l #tab,a2
  11861.  
  11862.  moveq #0,d0
  11863.  moveq #0,d1
  11864.  move.b vol1left,d0
  11865.  move.b vol3left,d1
  11866.  cmp.b d1,d0
  11867.  slt swappedem
  11868.  bge.s fbig2
  11869.  
  11870. ; d1 is bigger so scale d0 and use d1
  11871. ; as audiochannel volume.
  11872.  
  11873.  exg a0,a1
  11874.  asl.w #6,d0
  11875.  divs d1,d0
  11876.  lsl.w #8,d0
  11877.  adda.w d0,a2
  11878.  move.w d1,$dff0d8
  11879.  bra.s donechan2
  11880.  
  11881. fbig2:
  11882.  tst.w d0
  11883.  beq.s donechan2
  11884.  asl.w #6,d1
  11885.  divs d0,d1
  11886.  lsl.w #8,d1
  11887.  adda.w d1,a2
  11888.  move.w d0,$dff0d8
  11889.  
  11890. donechan2:
  11891.  
  11892.  move.l Aupt2,a3
  11893.  move.l a3,$dff0d0
  11894.  move.l Auback2,Aupt2
  11895.  move.l a3,Auback2
  11896.  
  11897.  moveq #0,d0
  11898.  moveq #0,d1
  11899.  moveq #0,d2
  11900.  moveq #0,d3
  11901.  moveq #0,d4
  11902.  moveq #0,d5
  11903.  move.w #49,d7
  11904. loop3:
  11905.  move.l (a0)+,d0
  11906.  move.b (a1)+,d1
  11907.  move.b (a1)+,d2
  11908.  move.b (a1)+,d3
  11909.  move.b (a1)+,d4
  11910.  move.b (a2,d3.w),d5
  11911.  swap d5
  11912.  move.b (a2,d1.w),d5
  11913.  asl.l #8,d5
  11914.  move.b (a2,d2.w),d5
  11915.  swap d5
  11916.  move.b (a2,d4.w),d5
  11917.  add.l d5,d0
  11918.  move.l d0,(a3)+
  11919.  dbra d7,loop3
  11920.  
  11921.  tst.b swappedem
  11922.  beq.s .ok23
  11923.  exg a0,a1
  11924. .ok23:
  11925.  
  11926.  cmp.l Samp1endLEFT,a0
  11927.  blt.s .notoffendsamp3
  11928.  move.l #empty,a0
  11929.  move.l #emptyend,Samp1endLEFT
  11930.  move.b #0,vol1left
  11931.  clr.w LEFTCHANDATA+32+4
  11932.  move.w #0,LEFTCHANDATA+2+4
  11933. .notoffendsamp3:
  11934.  
  11935.  cmp.l Samp3endLEFT,a1
  11936.  blt.s .notoffendsamp4
  11937.  move.l #empty,a1
  11938.  move.l #emptyend,Samp3endLEFT
  11939.  move.b #0,vol3left
  11940.  clr.w LEFTCHANDATA+32+12
  11941.  move.w #0,LEFTCHANDATA+2+12
  11942. .notoffendsamp4:
  11943.  
  11944.  move.l a0,pos1LEFT
  11945.  move.l a1,pos3LEFT
  11946.  
  11947.  move.l pos1RIGHT,a0
  11948.  move.l pos3RIGHT,a1
  11949.  
  11950.  move.l Aupt3,a3
  11951.  move.l a3,$dff0c0
  11952.  move.l Auback3,Aupt3
  11953.  move.l a3,Auback3
  11954.  
  11955.  move.l #tab,a2
  11956.  
  11957.  moveq #0,d0
  11958.  moveq #0,d1
  11959.  move.b vol1right,d0
  11960.  move.b vol3right,d1
  11961.  cmp.b d1,d0
  11962.  slt.s swappedem
  11963.  bge.s fbig3
  11964.  
  11965.  exg a0,a1
  11966.  asl.w #6,d0
  11967.  divs d1,d0
  11968.  lsl.w #8,d0
  11969.  adda.w d0,a2
  11970.  move.w d1,$dff0c8
  11971.  bra.s donechan3
  11972.  
  11973. fbig3:
  11974.  tst.w d0
  11975.  beq.s donechan3
  11976.  asl.w #6,d1
  11977.  divs d0,d1
  11978.  lsl.w #8,d1
  11979.  adda.w d1,a2
  11980.  move.w d0,$dff0c8
  11981. donechan3:
  11982.  
  11983.  moveq #0,d0
  11984.  moveq #0,d1
  11985.  moveq #0,d2
  11986.  moveq #0,d3
  11987.  moveq #0,d4
  11988.  moveq #0,d5
  11989.  move.w #49,d7
  11990. loop4:
  11991.  move.l (a0)+,d0
  11992.  move.b (a1)+,d1
  11993.  move.b (a1)+,d2
  11994.  move.b (a1)+,d3
  11995.  move.b (a1)+,d4
  11996.  move.b (a2,d3.w),d5
  11997.  swap d5
  11998.  move.b (a2,d1.w),d5
  11999.  asl.l #8,d5
  12000.  move.b (a2,d2.w),d5
  12001.  swap d5
  12002.  move.b (a2,d4.w),d5
  12003.  add.l d5,d0
  12004.  move.l d0,(a3)+
  12005.  dbra d7,loop4
  12006.  
  12007.  tst.b swappedem
  12008.  beq.s .ok23
  12009.  exg a0,a1
  12010. .ok23:
  12011.  
  12012.  cmp.l Samp1endRIGHT,a0
  12013.  blt.s notoffendsamp3
  12014.  move.l #empty,a0
  12015.  move.l #emptyend,Samp1endRIGHT
  12016.  move.b #0,vol1right
  12017.  clr.w RIGHTCHANDATA+32+4
  12018.  move.w #0,RIGHTCHANDATA+2+4
  12019. notoffendsamp3:
  12020.  
  12021.  cmp.l Samp3endRIGHT,a1
  12022.  blt.s notoffendsamp4
  12023.  move.l #empty,a1
  12024.  move.l #emptyend,Samp3endRIGHT
  12025.  move.b #0,vol3right
  12026.  clr.w RIGHTCHANDATA+32+12
  12027.  move.w #0,RIGHTCHANDATA+2+12
  12028. notoffendsamp4:
  12029.  
  12030.  move.l a0,pos1RIGHT
  12031.  move.l a1,pos3RIGHT
  12032.  
  12033.  movem.l (a7)+,d0-d7/a0-a6
  12034. ; tst.b counting
  12035. ; beq .nostartcounter
  12036. ; JSR STARTCOUNT
  12037. ;.nostartcounter:
  12038.  
  12039.  move.w #$820f,$dff000+dmacon
  12040.  
  12041.  moveq #0,d0
  12042.  rts
  12043.  
  12044. ***********************************
  12045. * 4 channel sound routine
  12046. ***********************************
  12047.  
  12048. fourchannel:
  12049.  
  12050.  move.l #$dff000,a6
  12051.  
  12052.  tst.b LEFTCHANDATA
  12053.  bne.s NoChan0sound
  12054.  
  12055.  btst #7,intreqrl(a6)
  12056.  beq.s nofinish0
  12057. ; move.w #0,LEFTCHANDATA+2
  12058. ; st LEFTCHANDATA+1
  12059.  move.l #null,$a0(a6)
  12060.  move.w #100,$a4(a6) 
  12061.  move.w #$0080,intreq(a6)
  12062. nofinish0:
  12063.  
  12064.  tst.b NoiseMade0pLEFT
  12065.  beq.s NoChan0sound
  12066.  
  12067.  move.l Samp0endLEFT,d0
  12068.  move.l pos0LEFT,d1
  12069.  sub.l d1,d0
  12070.  lsr.l #1,d0
  12071.  move.w d0,$a4(a6)
  12072.  move.l d1,$a0(a6)
  12073.  ext.l d0
  12074.  divs #100,d0
  12075.  move.w d0,playnull0
  12076.  move.w #$8201,dmacon(a6)
  12077.  moveq #0,d0
  12078.  move.b vol0left,d0
  12079.  move.w d0,$a8(a6)
  12080.  
  12081. NoChan0sound:
  12082.  
  12083. *****************************************
  12084. *****************************************
  12085.  
  12086.  btst #0,intreqr(a6)
  12087.  beq.s nofinish1
  12088.  move.l #null,$b0(a6)
  12089.  move.w #100,$b4(a6)
  12090.  move.w #$0100,intreq(a6)
  12091. nofinish1:
  12092.  
  12093.  tst.b NoiseMade0pRIGHT
  12094.  beq.s NoChan1sound
  12095.  
  12096.  move.l Samp0endRIGHT,d0
  12097.  move.l pos0RIGHT,d1
  12098.  sub.l d1,d0
  12099.  lsr.l #1,d0
  12100.  move.w d0,$b4(a6)
  12101.  move.l d1,$b0(a6)
  12102.  ext.l d0
  12103.  divs #100,d0
  12104.  move.w d0,playnull1
  12105.  move.w #$8202,dmacon(a6)
  12106.  moveq #0,d0
  12107.  move.b vol0right,d0
  12108.  move.w d0,$b8(a6)
  12109.  
  12110. NoChan1sound:
  12111.  
  12112. *****************************************
  12113. *****************************************
  12114.  
  12115.  btst #1,intreqr(a6)
  12116.  beq.s nofinish2
  12117.  move.l #null,$c0(a6)
  12118.  move.w #100,$c4(a6)
  12119.  move.w #$0200,intreq(a6)
  12120. nofinish2:
  12121.  
  12122.  tst.b NoiseMade1pRIGHT
  12123.  beq.s NoChan2sound
  12124.  
  12125.  move.l Samp1endRIGHT,d0
  12126.  move.l pos1RIGHT,d1
  12127.  sub.l d1,d0
  12128.  lsr.l #1,d0
  12129.  move.w d0,$c4(a6)
  12130.  ext.l d0
  12131.  divs #100,d0
  12132.  move.w d0,playnull2
  12133.  
  12134.  move.l d1,$c0(a6)
  12135.  move.w #$8204,dmacon(a6)
  12136.  moveq #0,d0
  12137.  move.b vol1right,d0
  12138.  move.w d0,$c8(a6)
  12139.  
  12140. NoChan2sound:
  12141.  
  12142. *****************************************
  12143. *****************************************
  12144.  
  12145.  btst #2,intreqr(a6)
  12146.  beq.s nofinish3
  12147.  move.l #null,$d0(a6)
  12148.  move.w #100,$d4(a6)
  12149.  move.w #$0400,intreq(a6)
  12150. nofinish3:
  12151.  
  12152.  tst.b NoiseMade1pLEFT
  12153.  beq.s NoChan3sound
  12154.  
  12155.  move.l Samp1endLEFT,d0
  12156.  move.l pos1LEFT,d1
  12157.  sub.l d1,d0
  12158.  lsr.l #1,d0
  12159.  move.w d0,$d4(a6)
  12160.  ext.l d0
  12161.  divs #100,d0
  12162.  move.w d0,playnull3
  12163.  move.l d1,$d0(a6)
  12164.  move.w #$8208,dmacon(a6)
  12165.  moveq #0,d0
  12166.  move.b vol1left,d0
  12167.  move.w d0,$d8(a6)
  12168.  
  12169. NoChan3sound:
  12170.  
  12171. nomorechannels:
  12172.  
  12173.  move.l NoiseMade0LEFT,NoiseMade0pLEFT
  12174.  move.l #0,NoiseMade0LEFT
  12175.  move.l NoiseMade0RIGHT,NoiseMade0pRIGHT
  12176.  move.l #0,NoiseMade0RIGHT
  12177.  
  12178. ; tst.b playnull0
  12179. ; beq.s .nnul
  12180. ; sub.b #1,playnull0
  12181. ; bra.s chan0still
  12182. ;.nnul:
  12183. ; 
  12184. ;chan0still:
  12185.  
  12186.  tst.b NoiseMade0pLEFT
  12187.  bne.s chan0still
  12188.  tst.w playnull0
  12189.  beq.s nnul0
  12190.  sub.w #1,playnull0
  12191.  bra.s chan0still
  12192. nnul0:
  12193.  move.w #0,LEFTCHANDATA+2
  12194.  clr.w LEFTCHANDATA+32
  12195. chan0still:
  12196.  
  12197.  tst.b NoiseMade0pRIGHT
  12198.  bne.s chan1still    ;it'll never work
  12199.  tst.w playnull1
  12200.  beq.s nnul1
  12201.  sub.w #1,playnull1
  12202.  bra.s chan1still
  12203. nnul1:
  12204.  move.w #0,RIGHTCHANDATA+2
  12205.  clr.w RIGHTCHANDATA+32
  12206. chan1still:
  12207.  
  12208.  tst.b NoiseMade1pRIGHT
  12209.  bne.s chan2still
  12210.  tst.w playnull2
  12211.  beq.s nnul2
  12212.  sub.w #1,playnull2
  12213.  bra.s chan2still
  12214. nnul2:
  12215.  move.w #0,RIGHTCHANDATA+2+4
  12216.  clr.w RIGHTCHANDATA+32+4
  12217. chan2still:
  12218.  
  12219.  tst.b NoiseMade1pLEFT
  12220.  bne.s chan3still
  12221.  tst.w playnull3
  12222.  beq.s nnul3
  12223.  sub.w #1,playnull3
  12224.  bra.s chan3still
  12225. nnul3:
  12226.  move.w #0,LEFTCHANDATA+2+4
  12227.  clr.w LEFTCHANDATA+32+4
  12228.  
  12229. chan3still:
  12230.  
  12231.  
  12232.  movem.l (a7)+,d0-d7/a0-a6
  12233.  
  12234.  moveq #0,d0
  12235.  rts
  12236.  
  12237. backbeat: dc.w 0
  12238.  
  12239. playnull0: dc.w 0
  12240. playnull1: dc.w 0
  12241. playnull2: dc.w 0
  12242. playnull3: dc.w 0
  12243.  
  12244. Samp0endRIGHT: dc.l emptyend
  12245. Samp1endRIGHT: dc.l emptyend
  12246. Samp2endRIGHT: dc.l emptyend
  12247. Samp3endRIGHT: dc.l emptyend
  12248. Samp0endLEFT: dc.l emptyend
  12249. Samp1endLEFT: dc.l emptyend
  12250. Samp2endLEFT: dc.l emptyend
  12251. Samp3endLEFT: dc.l emptyend
  12252.  
  12253. Aupt0: dc.l null
  12254. Auback0: dc.l null+500
  12255. Aupt2: dc.l null3
  12256. Auback2: dc.l null3+500
  12257. Aupt3: dc.l null4
  12258. Auback3: dc.l null4+500
  12259. Aupt1: dc.l null2
  12260. Auback1: dc.l null2+500
  12261.  
  12262. NoiseMade0LEFT: dc.b 0
  12263. NoiseMade1LEFT: dc.b 0
  12264. NoiseMade2LEFT: dc.b 0
  12265. NoiseMade3LEFT: dc.b 0
  12266. NoiseMade0pLEFT: dc.b 0
  12267. NoiseMade1pLEFT: dc.b 0
  12268. NoiseMade2pLEFT: dc.b 0
  12269. NoiseMade3pLEFT: dc.b 0
  12270. NoiseMade0RIGHT: dc.b 0
  12271. NoiseMade1RIGHT: dc.b 0
  12272. NoiseMade2RIGHT: dc.b 0
  12273. NoiseMade3RIGHT: dc.b 0
  12274. NoiseMade0pRIGHT: dc.b 0
  12275. NoiseMade1pRIGHT: dc.b 0
  12276. NoiseMade2pRIGHT: dc.b 0
  12277. NoiseMade3pRIGHT: dc.b 0
  12278.  
  12279. empty: ds.l 100
  12280. emptyend:
  12281.  
  12282. **************************************
  12283. * I want a routine to calculate all the
  12284. * info needed for the sound player to
  12285. * work, given say position of noise, volume
  12286. * and sample number.
  12287.  
  12288. Samplenum: dc.w 0
  12289. Noisex: dc.w 0
  12290. Noisez: dc.w 0
  12291. Noisevol: dc.w 0
  12292. chanpick: dc.w 0
  12293. IDNUM: dc.w 0
  12294. needleft: dc.b 0
  12295. needright: dc.b 0
  12296. STEREO: dc.b $0
  12297. even
  12298. prot6: dc.w 0
  12299.  
  12300.  even
  12301. CHANNELDATA:
  12302. LEFTCHANDATA:
  12303.  dc.l $00000000
  12304.  dc.l $00000000
  12305.  dc.l $FF000000
  12306.  dc.l $FF000000
  12307. RIGHTCHANDATA:
  12308.  dc.l $00000000
  12309.  dc.l $00000000
  12310.  dc.l $FF000000
  12311.  dc.l $FF000000
  12312.  
  12313.  ds.l 8
  12314.  
  12315. RIGHTPLAYEDTAB: ds.l 20
  12316. LEFTPLAYEDTAB: ds.l 20
  12317.  
  12318. SourceEcho: dc.w 0
  12319. PLREcho: dc.w 0
  12320.  
  12321. TimeToWait EQU 0
  12322. Q_IDNUM EQU 2
  12323. Q_Samplenum EQU 4
  12324. Q_notifplaying EQU 5
  12325. Q_LeftVolume EQU 6
  12326. Q_RightVolume EQU 7
  12327. Q_NoiseVol EQU 8
  12328.  
  12329.  
  12330. SOUNDQUEUE:
  12331.  ds.l 4*100
  12332.  
  12333. MakeSomeNoise:
  12334.  
  12335. ; Time to implement a new sound queueing routine.
  12336. ; This routine will queue sound effects in a buffer
  12337. ; which is checked and flushed every screen update.
  12338.  
  12339.  move.l #SOUNDQUEUE,a0
  12340.  move.w #99,d7
  12341. .findfree
  12342.  tst.w (a0)
  12343.  beq.s .foundfree
  12344.  
  12345.  adda.w #16,a0
  12346.  dbra d7,.findfree
  12347.  rts    ; no queue space available.
  12348.  
  12349. .foundfree:
  12350.  
  12351.  move.w IDNUM,Q_IDNUM(a0)
  12352.  move.b Samplenum+1,Q_Samplenum(a0)
  12353.  
  12354.  move.w Noisex,d1
  12355.  muls d1,d1
  12356.  move.w Noisez,d2
  12357.  muls d2,d2
  12358.  move.w Noisevol,d3
  12359.  move.w #32767,noiseloud
  12360.  moveq #1,d0
  12361.  add.l d1,d2
  12362.  beq pastcalc
  12363.  
  12364.  move.w #31,d0
  12365. .findhigh
  12366.  btst d0,d2
  12367.  bne .foundhigh
  12368.  dbra d0,.findhigh
  12369. .foundhigh
  12370.  asr.w #1,d0
  12371.  clr.l d3
  12372.  bset d0,d3
  12373.  move.l d3,d0
  12374.  
  12375.  move.w d0,d3
  12376.  muls d3,d3    ; x*x
  12377.  sub.l d2,d3    ; x*x-a
  12378.  asr.l #1,d3    ; (x*x-a)/2
  12379.  divs d0,d3    ; (x*x-a)/2x
  12380.  sub.w d3,d0    ; second approx
  12381.  bgt .stillnot0
  12382.  move.w #1,d0
  12383. .stillnot0
  12384.  
  12385.  move.w d0,d3
  12386.  muls d3,d3
  12387.  sub.l d2,d3
  12388.  asr.l #1,d3
  12389.  divs d0,d3
  12390.  sub.w d3,d0    ; second approx
  12391.  bgt .stillnot02
  12392.  move.w #1,d0
  12393. .stillnot02
  12394.  
  12395.  move.w Noisevol,d3
  12396.  ext.l d3
  12397.  asl.l #6,d3
  12398.  cmp.l #32767,d3
  12399.  ble.s .nnnn
  12400.  move.l #32767,d3
  12401. .nnnn
  12402.  
  12403.  asr.w #2,d0
  12404.  addq #1,d0
  12405.  divs d0,d3
  12406.  
  12407.  move.w d3,noiseloud
  12408. pastcalc:
  12409.  
  12410.  cmp.w #64,d3
  12411.  ble.s notooloud
  12412.  move.w #64,d3
  12413. notooloud:
  12414.  
  12415.  move.w d3,d4
  12416.  tst.b STEREO
  12417.  beq.s .nodiffleftright
  12418.  
  12419.  move.w d3,d2
  12420.  muls Noisex,d2
  12421.  asl.w #2,d0
  12422.  divs d0,d2
  12423.  
  12424.  bgt.s .quietleft
  12425.  add.w d2,d4
  12426.  bge.s .donequiet
  12427.  move.w #0,d4
  12428.  bra.s .donequiet
  12429. .quietleft:
  12430.  sub.w d2,d3
  12431.  bge.s .donequiet
  12432.  move.w #0,d3
  12433. .donequiet:
  12434.  
  12435. ; d3=leftvol?
  12436. ; d4=rightvol?
  12437.  
  12438. .nodiffleftright:
  12439.  
  12440.  move.b notifplaying,Q_notifplaying(a0)
  12441.  move.b d3,Q_LeftVolume(a0)
  12442.  move.b d4,Q_RightVolume(a0)
  12443.  move.w noiseloud,Q_NoiseVol(a0)
  12444.  move.w #1,(a0)
  12445.  
  12446. .findfree
  12447.  tst.w (a0)
  12448.  beq.s .foundfree
  12449.  
  12450.  adda.w #16,a0
  12451.  dbra d7,.findfree
  12452.  rts    ; no queue space available.
  12453.  
  12454. .foundfree:
  12455.  
  12456. ; put in an echo!
  12457.  
  12458.  moveq #0,d0
  12459.  moveq #0,d1
  12460. ; move.b Echo,d0
  12461.  move.b PLREcho,d1
  12462. ; cmp.w d0,d1
  12463. ; bgt.s .bigd1
  12464. ; move.b d0,d1
  12465. ;.bigd1:
  12466.  tst.b d1
  12467.  beq.s .noecho
  12468.  
  12469.  move.w #$ffff,Q_IDNUM(a0)
  12470.  move.b Samplenum+1,Q_Samplenum(a0)
  12471.  move.b notifplaying,Q_notifplaying(a0)
  12472.  asr.b #2,d3
  12473.  asr.b #2,d4
  12474.  exg d3,d4
  12475.  move.w noiseloud,d0
  12476.  asr.w #2,d0
  12477.  move.w d0,Q_NoiseVol(a0)
  12478.  move.b d3,Q_LeftVolume(a0)
  12479.  move.b d4,Q_RightVolume(a0)
  12480.  move.w d1,(a0)
  12481.  
  12482. .noecho
  12483.  
  12484.  rts
  12485.  
  12486.  
  12487. FLUSHSOUNDQUEUE:
  12488.  
  12489.  
  12490.  move.l #SOUNDQUEUE,a0
  12491.  move.w #99,d7
  12492. .flushloop:
  12493.  
  12494.  move.w (a0),d0
  12495.  beq.s .nosound
  12496.  
  12497.  subq #1,(a0)
  12498.  bgt.s .nosound
  12499.  
  12500.  moveq #0,d3
  12501.  moveq #0,d4
  12502.  move.w Q_IDNUM(a0),IDNUM
  12503.  move.b Q_notifplaying(a0),notifplaying
  12504.  move.b Q_LeftVolume(a0),d3
  12505.  move.b Q_RightVolume(a0),d4
  12506.  move.w Q_NoiseVol(a0),noiseloud
  12507.  move.b Q_Samplenum(a0),Samplenum+1
  12508.  bsr REALLYNOISY
  12509.  
  12510. .nosound:
  12511.  adda.w #16,a0
  12512.  dbra d7,.flushloop
  12513.  
  12514.  rts
  12515.  
  12516. LEFTOFFSET: dc.l 0
  12517. RIGHTOFFSET: dc.l 0
  12518.  
  12519. REALLYNOISY
  12520.  
  12521. ; move.w #$10,$dff000+intena
  12522.  
  12523. ; Plan for new sound handler:
  12524. ; It is sent a sample number,
  12525. ; a position relative to the
  12526. ; player, an id number and a volume.
  12527. ; Also notifplaying.
  12528.     
  12529. ; indirect inputs are the available
  12530. ; channel flags and whether or not
  12531. ; stereo sound is selected.
  12532.  
  12533. ; the algorithm must decide
  12534. ; whether the new sound is more
  12535. ; important than the ones already
  12536. ; playing. Thus an 'importance'
  12537. ; must be calculated, probably
  12538. ; using volume.
  12539.  
  12540. ; The output needs to be:
  12541.  
  12542. ; Write the pointers and volumes of
  12543. ; the sound channels
  12544.  
  12545.  
  12546.  tst.b notifplaying
  12547.  beq.s dontworry
  12548.  
  12549. ; find if we are already playing
  12550.  
  12551.  move.w IDNUM,d0
  12552.  cmp.w #$ffff,d0
  12553.  beq.s dontworry
  12554.  move.w #7,d1
  12555.  lea CHANNELDATA,a3
  12556. findsameasme
  12557.  tst.b (a3)
  12558.  bne.s notavail
  12559.  cmp.w 32(a3),d0
  12560.  beq SameAsMe
  12561. notavail:
  12562.  add.w #4,a3
  12563.  dbra d1,findsameasme
  12564.  bra dontworry
  12565. SameAsMe
  12566. ; move.w #$8010,$dff000+intena
  12567.  rts
  12568.  
  12569. noiseloud: dc.w 0
  12570.  
  12571. dontworry:
  12572.  
  12573. ; Ok its fine for us to play a sound.
  12574. ; So calculate left/right volume.
  12575.  
  12576.  
  12577.     ; d3 contains volume of noise.
  12578.     
  12579.  tst.b STEREO
  12580.  beq NOSTEREO
  12581.  
  12582.  
  12583.  move.w #$ffff,needleft
  12584.  
  12585.  move.l #0,RIGHTOFFSET
  12586.  move.l #0,LEFTOFFSET
  12587.  
  12588.  cmp.b d3,d4
  12589.  bgt.s RightLouder
  12590.  beq.s NoLouder
  12591.  
  12592.  move.l #4,LEFTOFFSET
  12593.  
  12594. ; Left is louder; is it MUCH louder?
  12595.  
  12596.  st needleft
  12597.  move.w d3,d2
  12598.  sub.w d4,d2
  12599.  cmp.w #32,d2
  12600.  slt needright
  12601.  bra aboutsame
  12602.  
  12603. RightLouder:
  12604.  move.l #4,RIGHTOFFSET
  12605.  st needright
  12606.  move.w d4,d2
  12607.  sub.w d3,d2
  12608.  cmp.w #32,d2
  12609.  slt needleft
  12610.  
  12611. aboutsame:
  12612. NoLouder:
  12613.  
  12614.  
  12615. ; Find least important sound on left
  12616.  
  12617.  move.l #0,a2
  12618.  move.l #0,d5
  12619.  move.w #32767,d2
  12620.  move.w IDNUM,d0
  12621.  lea LEFTCHANDATA,a3
  12622.  move.w #3,d1
  12623. FindLeftChannel
  12624.  tst.b (a3)
  12625.  bne.s .notactive
  12626.  cmp.w 32(a3),d0
  12627.  beq.s FOUNDLEFT
  12628.  cmp.w 2(a3),d2
  12629.  blt.s .notactive
  12630.  move.w 2(a3),d2
  12631.  move.l a3,a2
  12632.  move.w d5,d6
  12633.  
  12634. .notactive:
  12635.  add.w #4,a3
  12636.  add.w #1,d5
  12637.  dbra d1,FindLeftChannel
  12638.  move.l a2,a3
  12639.  bra.s gopastleft
  12640. FOUNDLEFT:
  12641.  move.w d5,d6
  12642. gopastleft:
  12643.  move.l a3,d5
  12644.  tst.l d5
  12645.  bne.s FOUNDALEFT
  12646. NONOISE:
  12647. ; move.w #$8010,$dff000+intena
  12648.  rts
  12649. FOUNDALEFT:
  12650.  
  12651.  cmp.w noiseloud,d2
  12652.  bge dorightchan
  12653.  
  12654. ; d6 = channel number
  12655.  cmp.w #$ffff,d0
  12656.  bne.s .noche
  12657.  move.w #$fffe,d0
  12658. .noche:
  12659.  move.w d0,32(a3)
  12660.  move.w noiseloud,2(a3)
  12661.  
  12662.  move.w Samplenum,d5
  12663.  
  12664. ; tst.b Echo
  12665. ; bne.s YESECHO
  12666. ; tst.b SourceEcho
  12667. ; beq.s NOECHO
  12668. ;
  12669. ;YESECHO:
  12670. ;
  12671. ; move.l LINKFILE,a3
  12672. ; add.l #EchoTable,a3
  12673. ; move.b (a3,d5.w),d5
  12674. ;
  12675. ;NOECHO:
  12676.  
  12677.  move.l #SampleList,a3
  12678.  move.l (a3,d5.w*8),a1
  12679.  add.l LEFTOFFSET,a1
  12680.  move.l 4(a3,d5.w*8),a2
  12681.  add.l LEFTOFFSET,a2
  12682.  
  12683.  tst.b d6
  12684.  seq NoiseMade0LEFT
  12685.  beq.s .chan0
  12686.  cmp.b #2,d6
  12687.  slt NoiseMade1LEFT
  12688.  blt .chan1
  12689.  seq NoiseMade2LEFT
  12690.  beq .chan2
  12691.  st NoiseMade3LEFT
  12692.  
  12693.  move.b d5,LEFTPLAYEDTAB+9
  12694.  move.b d3,LEFTPLAYEDTAB+1+9
  12695.  move.b d4,LEFTPLAYEDTAB+2+9
  12696.  move.b d3,vol3left
  12697.  move.l a1,pos3LEFT
  12698.  move.l a2,Samp3endLEFT
  12699.  bra dorightchan
  12700.  
  12701. .chan0: 
  12702.  move.b d5,LEFTPLAYEDTAB
  12703.  move.b d3,LEFTPLAYEDTAB+1
  12704.  move.b d4,LEFTPLAYEDTAB+2
  12705.  move.l a1,pos0LEFT
  12706.  move.l a2,Samp0endLEFT
  12707.  move.b d3,vol0left
  12708.  bra dorightchan
  12709.  
  12710. .chan1:
  12711.  move.b d5,LEFTPLAYEDTAB+3
  12712.  move.b d3,LEFTPLAYEDTAB+1+3
  12713.  move.b d4,LEFTPLAYEDTAB+2+3
  12714.  move.b d3,vol1left
  12715.  move.l a1,pos1LEFT
  12716.  move.l a2,Samp1endLEFT
  12717.  bra dorightchan
  12718.  
  12719. .chan2: 
  12720.  move.b d5,LEFTPLAYEDTAB+6
  12721.  move.b d3,LEFTPLAYEDTAB+1+6
  12722.  move.b d4,LEFTPLAYEDTAB+2+6
  12723.  move.l a1,pos2LEFT
  12724.  move.l a2,Samp2endLEFT
  12725.  move.b d3,vol2left
  12726.  
  12727. dorightchan:
  12728.  
  12729. ; Find least important sound on right
  12730.  
  12731.  move.l #0,a2
  12732.  move.l #0,d5
  12733.  move.w #10000,d2
  12734.  move.w IDNUM,d0
  12735.  lea RIGHTCHANDATA,a3
  12736.  move.w #3,d1
  12737. FindRightChannel
  12738.  tst.b (a3)
  12739.  bne.s .notactive
  12740.  cmp.w 32(a3),d0
  12741.  beq.s FOUNDRIGHT
  12742.  cmp.w 2(a3),d2
  12743.  blt.s .notactive
  12744.  move.w 2(a3),d2
  12745.  move.l a3,a2
  12746.  move.w d5,d6
  12747.  
  12748. .notactive:
  12749.  add.w #4,a3
  12750.  add.w #1,d5
  12751.  dbra d1,FindRightChannel
  12752.  move.l a2,a3
  12753.  bra.s gopastright
  12754. FOUNDRIGHT:
  12755.  move.w d5,d6
  12756. gopastright:
  12757.  move.l a3,d5
  12758.  tst.l d5
  12759.  bne.s FOUNDARIGHT
  12760. tototot:
  12761. ; move.w #$8010,$dff000+intena
  12762.  rts
  12763. FOUNDARIGHT:
  12764.  
  12765.  cmp.w noiseloud,d2
  12766.  bgt.s tototot
  12767.  
  12768. ; d6 = channel number
  12769.  cmp.w #$ffff,d0
  12770.  bne.s .noche
  12771.  move.w #$fffe,d0
  12772. .noche:
  12773.  move.w d0,32(a3)
  12774.  move.w noiseloud,2(a3)
  12775.  
  12776.  move.w Samplenum,d5
  12777.  move.l #SampleList,a3
  12778.  move.l (a3,d5.w*8),a1
  12779.  move.l 4(a3,d5.w*8),a2
  12780.  add.l RIGHTOFFSET,a1
  12781.  add.l RIGHTOFFSET,a2
  12782.  
  12783.  tst.b d6
  12784.  seq NoiseMade0RIGHT
  12785.  beq.s .chan0
  12786.  cmp.b #2,d6
  12787.  slt NoiseMade1RIGHT
  12788.  blt .chan1
  12789.  seq NoiseMade2RIGHT
  12790.  beq .chan2
  12791.  st NoiseMade3RIGHT
  12792.  
  12793.  move.b d5,RIGHTPLAYEDTAB+9
  12794.  move.b d3,RIGHTPLAYEDTAB+1+9
  12795.  move.b d4,RIGHTPLAYEDTAB+2+9
  12796.  move.b d4,vol3right
  12797.  move.l a1,pos3RIGHT
  12798.  move.l a2,Samp3endRIGHT
  12799. ; move.w #$8010,$dff000+intena
  12800.  rts
  12801.  
  12802. .chan0: 
  12803.  move.b d5,RIGHTPLAYEDTAB
  12804.  move.b d3,RIGHTPLAYEDTAB+1
  12805.  move.b d4,RIGHTPLAYEDTAB+2
  12806.  move.l a1,pos0RIGHT
  12807.  move.l a2,Samp0endRIGHT
  12808.  move.b d4,vol0right
  12809. ; move.w #$8010,$dff000+intena
  12810.  rts
  12811.  
  12812. .chan1:
  12813.  move.b d5,RIGHTPLAYEDTAB+3
  12814.  move.b d3,RIGHTPLAYEDTAB+1+3
  12815.  move.b d4,RIGHTPLAYEDTAB+2+3
  12816.  move.b d3,vol1right
  12817.  move.l a1,pos1RIGHT
  12818.  move.l a2,Samp1endRIGHT
  12819. ; move.w #$8010,$dff000+intena
  12820.  rts
  12821.  
  12822. .chan2: 
  12823.  move.b d5,RIGHTPLAYEDTAB+6
  12824.  move.b d3,RIGHTPLAYEDTAB+1+6
  12825.  move.b d4,RIGHTPLAYEDTAB+2+6
  12826.  move.l a1,pos2RIGHT
  12827.  move.l a2,Samp2endRIGHT
  12828.  move.b d3,vol2right
  12829. ; move.w #$8010,$dff000+intena
  12830.  rts
  12831.  
  12832. NOSTEREO:
  12833.  move.l #0,a2
  12834.  move.l #-1,d5
  12835.  move.w #32767,d2
  12836.  move.w IDNUM,d0
  12837.  lea CHANNELDATA,a3
  12838.  move.w #7,d1
  12839.  moveq #-1,d6
  12840.  
  12841. FindChannel
  12842.  tst.b (a3)
  12843.  bne.s .notactive
  12844.  cmp.w 32(a3),d0
  12845.  beq.s FOUNDMYCHAN
  12846.  cmp.w 2(a3),d2
  12847.  blt.s .notactive
  12848.  move.w 2(a3),d2
  12849.  move.l a3,a2
  12850.  move.w d5,d6
  12851.  add.w #1,d6
  12852.  
  12853. .notactive:
  12854.  add.w #4,a3
  12855.  add.w #1,d5
  12856.  dbra d1,FindChannel
  12857.  
  12858.  move.l a2,a3
  12859.  bra.s gopastchan
  12860.  
  12861. FOUNDMYCHAN:
  12862.  move.w 2(a3),d2
  12863.  
  12864. FOUNDCHAN:
  12865.  move.w d5,d6
  12866.  add.w #1,d6
  12867. gopastchan:
  12868.  tst.w d6
  12869.  bge.s FOUNDACHAN
  12870. tooquiet:
  12871. ; move.w #$8010,$dff000+intena
  12872.  rts
  12873. FOUNDACHAN:
  12874.  
  12875. ; d6 = channel number
  12876.  
  12877.  cmp.w noiseloud,d2
  12878.  bgt.s tooquiet
  12879.  
  12880.  cmp.w #$ffff,d0
  12881.  bne.s .noche
  12882.  move.w #$fffe,d0
  12883. .noche:
  12884.  move.w d0,32(a3)
  12885.  move.w noiseloud,2(a3)
  12886.  
  12887.  move.w Samplenum,d5
  12888.  
  12889. ; tst.b Echo
  12890. ; bne.s YESECHO2
  12891. ; tst.b SourceEcho
  12892. ; beq.s NOECHO2
  12893. ;
  12894. ;YESECHO2:
  12895. ;
  12896. ; move.l LINKFILE,a3
  12897. ; add.l #EchoTable,a3
  12898. ; move.b (a3,d5.w),d5
  12899. ;
  12900. ;NOECHO2:
  12901.  
  12902.  move.l #SampleList,a3
  12903.  move.l (a3,d5.w*8),a1
  12904.  move.l 4(a3,d5.w*8),a2
  12905.  
  12906.  tst.b d6
  12907.  beq .chan0
  12908.  cmp.b #2,d6
  12909.  blt .chan1
  12910.  beq .chan2
  12911.  cmp.b #4,d6
  12912.  blt .chan3
  12913.  beq .chan4
  12914.  cmp.b #6,d6
  12915.  blt .chan5
  12916.  beq .chan6
  12917.  st NoiseMade3RIGHT
  12918.  
  12919.  move.b d5,RIGHTPLAYEDTAB+9
  12920.  move.b d3,RIGHTPLAYEDTAB+1+9
  12921.  move.b d4,RIGHTPLAYEDTAB+2+9
  12922.  move.b d4,vol3right
  12923.  move.l a1,pos3RIGHT
  12924.  move.l a2,Samp3endRIGHT
  12925. ; move.w #$8010,$dff000+intena
  12926.  rts
  12927.  
  12928. .chan3:
  12929.  st NoiseMade3LEFT
  12930.  move.b d5,LEFTPLAYEDTAB+9
  12931.  move.b d3,LEFTPLAYEDTAB+1+9
  12932.  move.b d4,LEFTPLAYEDTAB+2+9
  12933.  move.b d3,vol3left
  12934.  move.l a1,pos3LEFT
  12935.  move.l a2,Samp3endLEFT
  12936. ; move.w #$8010,$dff000+intena
  12937.  rts
  12938.  
  12939. .chan0: 
  12940.  st NoiseMade0LEFT
  12941.  move.b d5,LEFTPLAYEDTAB
  12942.  move.b d3,LEFTPLAYEDTAB+1
  12943.  move.b d4,LEFTPLAYEDTAB+2
  12944.  move.l a1,pos0LEFT
  12945.  move.l a2,Samp0endLEFT
  12946.  move.b d3,vol0left
  12947. ; move.w #$8010,$dff000+intena
  12948.  rts
  12949.  
  12950. .chan1:
  12951.  st NoiseMade1LEFT
  12952.  move.b d5,LEFTPLAYEDTAB+3
  12953.  move.b d3,LEFTPLAYEDTAB+1+3
  12954.  move.b d4,LEFTPLAYEDTAB+2+3
  12955.  move.b d3,vol1left
  12956.  move.l a1,pos1LEFT
  12957.  move.l a2,Samp1endLEFT
  12958. ; move.w #$8010,$dff000+intena
  12959.  rts
  12960.  
  12961. .chan2: 
  12962.  st NoiseMade2LEFT
  12963.  move.b d5,LEFTPLAYEDTAB+6
  12964.  move.b d3,LEFTPLAYEDTAB+1+6
  12965.  move.b d4,LEFTPLAYEDTAB+2+6
  12966.  move.l a1,pos2LEFT
  12967.  move.l a2,Samp2endLEFT
  12968.  move.b d3,vol2left
  12969. ; move.w #$8010,$dff000+intena
  12970.  rts
  12971.  
  12972. .chan4: 
  12973.  st NoiseMade0RIGHT
  12974.  move.b d5,RIGHTPLAYEDTAB
  12975.  move.b d3,RIGHTPLAYEDTAB+1
  12976.  move.b d4,RIGHTPLAYEDTAB+2
  12977.  move.l a1,pos0RIGHT
  12978.  move.l a2,Samp0endRIGHT
  12979.  move.b d4,vol0right
  12980. ; move.w #$8010,$dff000+intena
  12981.  rts
  12982.  
  12983. .chan5:
  12984.  st NoiseMade1RIGHT
  12985.  move.b d5,RIGHTPLAYEDTAB+3
  12986.  move.b d3,RIGHTPLAYEDTAB+1+3
  12987.  move.b d4,RIGHTPLAYEDTAB+2+3
  12988.  move.b d3,vol1right
  12989.  move.l a1,pos1RIGHT
  12990.  move.l a2,Samp1endRIGHT
  12991. ; move.w #$8010,$dff000+intena
  12992.  rts
  12993.  
  12994. .chan6: 
  12995.  st NoiseMade2RIGHT
  12996.  move.b d5,RIGHTPLAYEDTAB+6
  12997.  move.b d3,RIGHTPLAYEDTAB+1+6
  12998.  move.b d4,RIGHTPLAYEDTAB+2+6
  12999.  move.l a1,pos2RIGHT
  13000.  move.l a2,Samp2endRIGHT
  13001.  move.b d3,vol2right
  13002. ; move.w #$8010,$dff000+intena
  13003.  rts
  13004.  
  13005. SampleList:
  13006.  dc.l Scream,EndScream
  13007.  dc.l Shoot,EndShoot
  13008.  dc.l Munch,EndMunch
  13009.  dc.l PooGun,EndPooGun
  13010.  dc.l Collect,EndCollect
  13011. ;5
  13012.  dc.l DoorNoise,EndDoorNoise
  13013.  dc.l 0,0
  13014.  dc.l Stomp,EndStomp
  13015.  dc.l LowScream,EndLowScream
  13016.  dc.l BaddieGun,EndBaddieGun
  13017. ;10
  13018.  dc.l SwitchNoise,EndSwitch
  13019.  dc.l Reload,EndReload
  13020.  dc.l NoAmmo,EndNoAmmo
  13021.  dc.l Splotch,EndSplotch
  13022.  dc.l SplatPop,EndSplatPop
  13023. ;15
  13024.  dc.l Boom,EndBoom
  13025.  dc.l Hiss,EndHiss
  13026.  dc.l Howl1,EndHowl1
  13027.  dc.l Howl2,EndHowl2
  13028.  dc.l Pant,EndPant
  13029. ;20
  13030.  dc.l Whoosh,EndWhoosh
  13031.  dc.l ROAR,EndROAR
  13032.  dc.l whoosh,Endwhoosh
  13033.  dc.l 0,0
  13034.  dc.l 0,0
  13035.  dc.l 0,0
  13036.  dc.l 0,0
  13037.  dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  13038.  dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  13039.  dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  13040.  dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  13041.  
  13042.  dc.l 0
  13043.  
  13044. storeval: dc.w 0
  13045.  
  13046.  include "ab3:source_4000/wallchunk.s"
  13047.  include "ab3:source_4000/newloadfromdisk.s"
  13048.  include "ab3:source_4000/screensetup.s"
  13049.  include "ab3:source_4000/CONTROLLOOP.s"
  13050.  
  13051.  
  13052.  
  13053.  
  13054. saveinters:  
  13055.  dc.w 0
  13056.  
  13057. z: dc.w 10
  13058.  
  13059. notifplaying:
  13060.  dc.w 0
  13061.  
  13062. audpos1: dc.w 0
  13063. audpos1b: dc.w 0
  13064. audpos2: dc.w 0
  13065. audpos2b: dc.w 0
  13066. audpos3: dc.w 0
  13067. audpos3b: dc.w 0
  13068. audpos4: dc.w 0
  13069. audpos4b: dc.w 0
  13070.  
  13071. vol0left: dc.w 0
  13072. vol0right: dc.w 0
  13073. vol1left: dc.w 0
  13074. vol1right: dc.w 0
  13075. vol2left: dc.w 0
  13076. vol2right: dc.w 0
  13077. vol3left: dc.w 0
  13078. vol3right: dc.w 0
  13079.  
  13080. pos: dc.l 0
  13081.  
  13082. pos0LEFT: dc.l empty
  13083. pos1LEFT: dc.l empty
  13084. pos2LEFT: dc.l empty
  13085. pos3LEFT: dc.l empty
  13086. pos0RIGHT: dc.l empty
  13087. pos1RIGHT: dc.l empty
  13088. pos2RIGHT: dc.l empty
  13089. pos3RIGHT: dc.l empty
  13090.  
  13091. numtodo dc.w 0
  13092.  
  13093. npt: dc.w 0
  13094.  
  13095. pretab:
  13096. val SET 0
  13097.  REPT 128
  13098.  dc.b val
  13099. val SET val+1
  13100.  ENDR
  13101. val SET -128
  13102.  REPT 128
  13103.  dc.b val
  13104. val SET val+1
  13105.  ENDR 
  13106.  
  13107. tab:
  13108.  ifeq CHEESEY
  13109.  ds.b 256*65
  13110.  endc
  13111.  
  13112. test: dc.l 0
  13113.  ds.l 30
  13114.  
  13115.  
  13116.  even
  13117. ConstCols:
  13118. ; incbin "ConstCols"
  13119.  even
  13120. Smoothscalecols:
  13121. ; incbin "smoothbumppalscaled"
  13122.  even
  13123. SmoothTile:
  13124. ; incbin "smoothbumptile"
  13125.  even
  13126. Bumpscalecols:
  13127. ; incbin "Bumppalscaled"
  13128.  even
  13129. Bumptile:
  13130. ; incbin "bumptile"
  13131.  even
  13132. scalecols: ;incbin "bytepixpalscaled"
  13133.  even
  13134. ;floorscalecols:
  13135. ; incbin "floor256pal"
  13136. ; ds.w 256*4
  13137.  
  13138.  even
  13139. PaletteAddr: dc.l 0
  13140. ChunkAddr: dc.l 0
  13141. ;walltiles:
  13142. ; dc.l GreenMechanicWALL
  13143. ; dc.l BlueGreyMetalWALL
  13144. ; dc.l TechnoDetailWALL
  13145. ; dc.l BlueStoneWALL
  13146. ; dc.l RedAlertWALL
  13147. ; dc.l RockWALL
  13148. ;
  13149. ;GreenMechanicWALL: incbin "ab3:includes/walls/greenmechanic.wad"
  13150. ;BlueGreyMetalWALL: incbin "ab3:includes/walls/BlueGreyMetal.wad"
  13151. ;TechnoDetailWALL: incbin "ab3:includes/walls/TechnoDetail.wad"
  13152. ;BlueStoneWALL: incbin "ab3:includes/walls/bluestone.wad"
  13153. ;RedAlertWALL: incbin "ab3:includes/walls/redalert.wad"
  13154. ;RockWALL: incbin "ab3:includes/walls/rock.wad"
  13155.  
  13156. floortile:
  13157.  dc.l 0
  13158. ; incbin "floortile" 
  13159.  even
  13160. wallrouts:
  13161. ; incbin "2x2WallDraw" 
  13162.  CNOP 0,64
  13163.  
  13164.  ifeq CHEESEY 
  13165. BackPicture:
  13166.  dc.l 0
  13167. ; incbin "rawback"
  13168. EndBackPicture:
  13169.  endc
  13170.  
  13171. drawpt: dc.l 0
  13172. olddrawpt: dc.l 0
  13173. frompt: dc.l 0 
  13174.  
  13175. SineTable:
  13176.  incbin "bigsine"
  13177.  
  13178. angspd: dc.w 0
  13179. flooryoff: dc.w 0
  13180. xoff: dc.l 0
  13181. yoff: dc.l 0
  13182. yvel: dc.l 0
  13183. zoff: dc.l 0
  13184. tyoff: dc.l 0
  13185. xspdval: dc.l 0
  13186. zspdval: dc.l 0
  13187. Zone: dc.w 0
  13188.  
  13189. PLR1: dc.b $ff
  13190.  even
  13191. PLR1_energy: dc.w 191
  13192. PLR1_GunSelected: dc.w 0
  13193. PLR1_cosval: dc.w 0
  13194. PLR1_sinval: dc.w 0
  13195. PLR1_angpos: dc.w 0
  13196. PLR1_angspd: dc.w 0
  13197. PLR1_xoff: dc.l 0
  13198. PLR1_yoff: dc.l 0
  13199. PLR1_yvel: dc.l 0
  13200. PLR1_zoff: dc.l 0
  13201. PLR1_tyoff: dc.l 0
  13202. PLR1_xspdval: dc.l 0
  13203. PLR1_zspdval: dc.l 0
  13204. PLR1_Zone: dc.w 0
  13205. PLR1_Roompt: dc.l 0
  13206. PLR1_FloorSpd: dc.l 0
  13207. PLR2_FloorSpd: dc.l 0
  13208. PLR1_OldRoompt: dc.l 0
  13209. PLR1_PointsToRotatePtr: dc.l 0
  13210. PLR1_ListOfGraphRooms: dc.l 0
  13211. PLR1_oldxoff: dc.l 0
  13212. PLR1_oldzoff: dc.l 0
  13213. PLR1_StoodInTop: dc.b 0
  13214.  even
  13215. PLR1_height: dc.l 0
  13216. PLR1_RoomBright: dc.w 0
  13217.  
  13218. DOUBLEWIDTH: dc.b $0,0
  13219. DOUBLEHEIGHT: dc.b 0,0
  13220. PLR1_TELEPORTED: dc.w 0
  13221. PLR2_TELEPORTED: dc.w 0
  13222.  
  13223.  ds.w 4
  13224.  
  13225. OLDX1: dc.l 0
  13226. OLDX2: dc.l 0
  13227. OLDZ1: dc.l 0
  13228. OLDZ2: dc.l 0
  13229.  
  13230. XDIFF1: dc.l 0
  13231. ZDIFF1: dc.l 0
  13232. XDIFF2: dc.l 0
  13233. ZDIFF2: dc.l 0
  13234.  
  13235. PLR1s_cosval: dc.w 0
  13236. PLR1s_sinval: dc.w 0
  13237. PLR1s_angpos: dc.w 0
  13238. PLR1s_angspd: dc.w 0
  13239. PLR1s_xoff: dc.l 0
  13240. PLR1s_yoff: dc.l 0
  13241. PLR1s_yvel: dc.l 0
  13242. PLR1s_zoff: dc.l 0
  13243. PLR1s_tyoff: dc.l 0
  13244. PLR1s_xspdval: dc.l 0
  13245. PLR1s_zspdval: dc.l 0
  13246. PLR1s_Zone: dc.w 0
  13247. PLR1s_Roompt: dc.l 0
  13248. PLR1s_OldRoompt: dc.l 0
  13249. PLR1s_PointsToRotatePtr: dc.l 0
  13250. PLR1s_ListOfGraphRooms: dc.l 0
  13251. PLR1s_oldxoff: dc.l 0
  13252. PLR1s_oldzoff: dc.l 0
  13253. PLR1s_height: dc.l 0
  13254. PLR1s_targheight: dc.l 0
  13255.  
  13256. PLR1_Echo: dc.w 0
  13257.  
  13258. p1_xoff: dc.l 0
  13259. p1_zoff: dc.l 0
  13260. p1_yoff: dc.l 0
  13261. p1_height: dc.l 0
  13262. p1_angpos: dc.w 0
  13263. p1_bobble: dc.w 0
  13264. p1_clicked: dc.b 0
  13265. p1_spctap: dc.b 0
  13266. p1_ducked: dc.b 0
  13267. p1_gunselected: dc.b 0
  13268. p1_fire: dc.b 0
  13269.  even
  13270. p1_holddown: dc.w 0
  13271.  
  13272.  ds.w 4
  13273.  
  13274. PLR2: dc.b $ff
  13275.  even
  13276. PLR2_GunSelected: dc.w 0
  13277. PLR2_energy: dc.w 191
  13278. PLR2_cosval: dc.w 0
  13279. PLR2_sinval: dc.w 0
  13280. PLR2_angpos: dc.w 0
  13281. PLR2_angspd: dc.w 0
  13282. PLR2_xoff: dc.l 0
  13283. PLR2_yoff: dc.l 0
  13284. PLR2_yvel: dc.l 0
  13285. PLR2_zoff: dc.l 0
  13286. PLR2_tyoff: dc.l 0
  13287. PLR2_xspdval: dc.l 0
  13288. PLR2_zspdval: dc.l 0
  13289. PLR2_Zone: dc.w 0
  13290. PLR2_Roompt: dc.l 0
  13291. PLR2_OldRoompt: dc.l 0
  13292. PLR2_PointsToRotatePtr: dc.l 0
  13293. PLR2_ListOfGraphRooms: dc.l 0
  13294. PLR2_oldxoff: dc.l 0
  13295. PLR2_oldzoff: dc.l 0
  13296. PLR2_StoodInTop: dc.b 0
  13297.  even
  13298. PLR2_height: dc.l 0
  13299. PLR2_Echo: dc.w 0
  13300. Echo: dc.w 0
  13301.  
  13302.  ds.w 4
  13303.  
  13304. PLR2s_cosval: dc.w 0
  13305. PLR2s_sinval: dc.w 0
  13306. PLR2s_angpos: dc.w 0
  13307. PLR2s_angspd: dc.w 0
  13308. PLR2s_xoff: dc.l 0
  13309. PLR2s_yoff: dc.l 0
  13310. PLR2s_yvel: dc.l 0
  13311. PLR2s_zoff: dc.l 0
  13312. PLR2s_tyoff: dc.l 0
  13313. PLR2s_xspdval: dc.l 0
  13314. PLR2s_zspdval: dc.l 0
  13315. PLR2s_Zone: dc.w 0
  13316. PLR2s_Roompt: dc.l 0
  13317. PLR2s_OldRoompt: dc.l 0
  13318. PLR2s_PointsToRotatePtr: dc.l 0
  13319. PLR2s_ListOfGraphRooms: dc.l 0
  13320. PLR2s_oldxoff: dc.l 0
  13321. PLR2s_oldzoff: dc.l 0
  13322. PLR2s_height: dc.l 0
  13323. PLR2s_targheight: dc.l 0
  13324.  
  13325.  ds.w 4
  13326.  
  13327. p2_xoff: dc.l 0
  13328. p2_zoff: dc.l 0
  13329. p2_yoff: dc.l 0
  13330. p2_height: dc.l 0
  13331. p2_angpos: dc.w 0
  13332. p2_bobble: dc.w 0
  13333. p2_clicked: dc.b 0
  13334. p2_spctap: dc.b 0
  13335. p2_ducked: dc.b 0
  13336. p2_gunselected: dc.b 0
  13337. p2_fire: dc.b 0
  13338.  even
  13339. p2_holddown: dc.w 0
  13340.  
  13341. liftanimtab:
  13342.  
  13343. endliftanimtab:
  13344.  
  13345. glassball:
  13346. ; incbin "glassball.inc"
  13347.  
  13348. endglass
  13349. glassballpt: dc.l glassball
  13350.  
  13351. rndtab: ; incbin "randfile"
  13352. endrnd: 
  13353.  
  13354. brightanimtab:
  13355. ; dcb.w 200,20
  13356. ; dc.w 5
  13357. ; dc.w 10,20
  13358. ; dc.w 5
  13359. ; dcb.w 30,20
  13360. ; dc.w 7,10,10,5,10,0,5,6,5,6,5,6,5,6,0
  13361. ; dcb.w 40,0
  13362. ; dc.w 1,2,3,2,3,2,3,2,3,2,3,2,3,0
  13363. ; dcb.w 300,0
  13364. ; dc.w 1,0,1,0,2,2,2,5,5,5,5,5,5,5,5,5,6,10
  13365. ; dc.w -1
  13366.  
  13367. Roompt: dc.l 0
  13368. OldRoompt: dc.l 0
  13369.  
  13370. *****************************************************************
  13371.  *
  13372.  include "AB3:source_4000/LevelData2"
  13373.  *
  13374. *****************************************************************
  13375.  
  13376.  
  13377. wallpt: dc.l 0
  13378. floorpt: dc.l 0
  13379.  
  13380. Rotated:
  13381.  ds.l 2*800 
  13382. ObjRotated:
  13383.  ds.l 2*500
  13384.  
  13385. OnScreen:
  13386.  ds.l 2*800 
  13387.  
  13388. startwait: dc.w 0
  13389. endwait: dc.w 0
  13390.  
  13391. ;Faces:
  13392. ; incbin "faces2raw"
  13393.  
  13394. LINKS: dc.l 0
  13395. FLYLINKS: dc.l 0
  13396. *************************************************************
  13397.  
  13398. consttab:
  13399.  ds.b 65536
  13400.  
  13401. ; incbin "constantfile"
  13402.  
  13403. *******************************************************************
  13404.  
  13405.  
  13406.  
  13407. *********************************
  13408.  
  13409. ; include "ab3:source_4000/loadmod.a"
  13410. ; include "ab3:source_4000/proplayer.a"
  13411.  
  13412.  
  13413. darkentab: 
  13414. ;val SET 0
  13415. ; REPT 256
  13416. ; dc.b val
  13417. ;val SET val+1
  13418. ; ENDR
  13419. ; incbin "darkenfile"
  13420.  
  13421.     dc.w 0
  13422. MIDDLEX: dc.w 0
  13423. RIGHTX: dc.w 192
  13424. FULLSCR: dc.w 0
  13425.  
  13426. ;SHADINGTABLE: incbin "SHADEFILE" 
  13427.  
  13428. ******************************************
  13429. * Link file !*****************************
  13430. ******************************************
  13431.  
  13432. LINKSPACE:
  13433. ; ds.l 22500
  13434. ; incbin "ab3:includes/test.lnk"
  13435.  
  13436. LINKname:
  13437.  dc.b "TKG1:includes/test.lnk",0
  13438.  even
  13439.  
  13440. LINKFILE:
  13441.  dc.l LINKSPACE
  13442.  
  13443. ******************************************
  13444.  
  13445.  
  13446. ;brightentab:
  13447. ; incbin "brightenfile"
  13448. WorkSpace:
  13449.  ds.l 8192 
  13450. waterfile:
  13451.  incbin "waterfile"
  13452.  
  13453.  SECTION ffff,CODE_C
  13454.  
  13455. nullspr: dc.l 0
  13456.  
  13457.  cnop 0,8
  13458. ;borders:
  13459. ; incbin "newleftbord"
  13460. ; incbin "newrightbord"
  13461.  
  13462. health: 
  13463. ;incbin "healthstrip"
  13464. Ammunition: 
  13465. ;incbin "ammostrip"
  13466. healthpal: 
  13467. ;incbin "healthpal"
  13468. PanelKeys: 
  13469. ;incbin "greenkey"
  13470. ; incbin "redkey"
  13471. ; incbin "yellowkey"
  13472. ; incbin "bluekey"
  13473.  
  13474. null: ds.w 500
  13475. null2: ds.w 500
  13476. null3: ds.w 500
  13477. null4: ds.w 500
  13478.  
  13479.  
  13480. Blurbfield:
  13481.  
  13482.  dc.w bpl1ptl
  13483. bl1l: dc.w 0
  13484.  dc.w bpl1pth
  13485. bl1h: dc.w 0
  13486.  
  13487.  dc.w diwstart,$2c81
  13488.  dc.w diwstop,$1cc1
  13489.  dc.w ddfstart,$38
  13490.  dc.w ddfstop,$b8
  13491.  dc.w bplcon0,$9201
  13492.  dc.w bplcon1,0
  13493.  dc.w $106,$c40
  13494. blcols:
  13495.  dc.w col0,0
  13496.  dc.w col1,$fff
  13497.  
  13498.  dc.w $108,0
  13499.  dc.w $10a,0
  13500.  
  13501.  dc.w $ffff,$fffe
  13502.  dc.w $ffff,$fffe
  13503.  
  13504. nullline:
  13505.  ds.b 80    
  13506.  
  13507.  include "ab3:source_4000/titlecop.s"
  13508.  
  13509. bigfield:    
  13510.                 ; Start of our copper list.
  13511.  dc.w dmacon,$8020
  13512.  dc.w intreq,$8011
  13513.  dc.w $1fc,$f
  13514.  dc.w diwstart
  13515. winstart: dc.w $2c81
  13516.  dc.w diwstop
  13517. winstop: dc.w $2cc1
  13518.  dc.w ddfstart
  13519. fetchstart: dc.w $38
  13520.  dc.w ddfstop
  13521. fetchstop: dc.w $b8
  13522.  
  13523. bordercols:
  13524.  incbin "borderpal"
  13525.  
  13526.  dc.w spr0ptl
  13527. s0l:
  13528.  dc.w 0
  13529.  dc.w spr0pth
  13530. s0h:
  13531.  dc.w 0
  13532.  dc.w spr1ptl
  13533. s1l:
  13534.  dc.w 0
  13535.  dc.w spr1pth
  13536. s1h:
  13537.  dc.w 0
  13538.  dc.w spr2ptl
  13539. s2l:
  13540.  dc.w 0
  13541.  dc.w spr2pth
  13542. s2h:
  13543.  dc.w 0
  13544.  dc.w spr3ptl
  13545. s3l:
  13546.  dc.w 0
  13547.  dc.w spr3pth
  13548. s3h:
  13549.  dc.w 0
  13550.  dc.w spr4ptl
  13551. s4l:
  13552.  dc.w 0
  13553.  dc.w spr4pth
  13554. s4h:
  13555.  dc.w 0
  13556.  dc.w spr5ptl
  13557. s5l:
  13558.  dc.w 0
  13559.  dc.w spr5pth
  13560. s5h:
  13561.  dc.w 0
  13562.  dc.w spr6ptl
  13563. s6l:
  13564.  dc.w 0
  13565.  dc.w spr6pth
  13566. s6h:
  13567.  dc.w 0
  13568.  dc.w spr7ptl
  13569. s7l:
  13570.  dc.w 0
  13571.  dc.w spr7pth
  13572. s7h:
  13573.  dc.w 0
  13574.  
  13575. ; dc.w $106,$c42
  13576. ; incbin "borderpal"
  13577.  
  13578.  dc.w $106,$c42
  13579.  
  13580.  dc.w bplcon0,$0211
  13581.  dc.w bplcon1
  13582. smoff:
  13583.  dc.w $0
  13584.  
  13585.  dc.w $108
  13586. modulo: dc.w 0
  13587.  dc.w $10a,0
  13588.  
  13589.  dc.w $1001,$ff00
  13590.  dc.w intreq,$11
  13591.  
  13592. PALETTESPACE:
  13593.  dcb.l 528,$1fe0000
  13594.  
  13595.  dc.w $2001,$ff00
  13596.  
  13597.  dc.w bpl1pth
  13598. pl1h
  13599.  dc.w 0
  13600.  
  13601.  dc.w bpl1ptl
  13602. pl1l
  13603.  dc.w 0
  13604.  
  13605.  dc.w bpl2pth
  13606. pl2h
  13607.  dc.w 0
  13608.  
  13609.  dc.w bpl2ptl
  13610. pl2l
  13611.  dc.w 0
  13612.  
  13613.  dc.w bpl3pth
  13614. pl3h
  13615.  dc.w 0
  13616.  
  13617.  dc.w bpl3ptl
  13618. pl3l
  13619.  dc.w 0
  13620.  
  13621.  dc.w bpl4pth
  13622. pl4h
  13623.  dc.w 0
  13624.  
  13625.  dc.w bpl4ptl
  13626. pl4l
  13627.  dc.w 0
  13628.  
  13629.  dc.w bpl5pth
  13630. pl5h
  13631.  dc.w 0
  13632.  
  13633.  dc.w bpl5ptl
  13634. pl5l
  13635.  dc.w 0
  13636.  
  13637.  dc.w bpl6pth
  13638. pl6h
  13639.  dc.w 0
  13640.  
  13641.  dc.w bpl6ptl
  13642. pl6l
  13643.  dc.w 0
  13644.  
  13645.  dc.w bpl7pth
  13646. pl7h
  13647.  dc.w 0
  13648.  
  13649.  dc.w bpl7ptl
  13650. pl7l
  13651.  dc.w 0
  13652.  
  13653.  dc.w bpl8pth
  13654. pl8h
  13655.  dc.w 0
  13656.  
  13657.  dc.w bpl8ptl
  13658. pl8l
  13659.  dc.w 0
  13660.  
  13661.  
  13662. val SET $2c
  13663. SCRMODULOS:
  13664.  REPT 232
  13665.  dc.b val,1,$ff,$fe
  13666.  dc.w $108,0
  13667.  dc.w $10a,0
  13668.  dc.b val,$df,$ff,$fe
  13669. val SET (val+1)&$ff
  13670.  ENDR
  13671.  
  13672.  dc.w $108,0,$10a,0
  13673.  dc.w $2401,$ff00
  13674.  dc.w ddfstop,$c8
  13675.  dc.w bplcon0,$9201
  13676.  dc.w bpl1ptl
  13677. scroll:
  13678.  dc.w 0
  13679.  dc.w bpl1pth
  13680. scrolh:
  13681.  dc.w 0
  13682.  
  13683.  dc.w $106,$c40
  13684.  dc.w $180,0
  13685.  dc.w $182,$f0
  13686. ; dc.w $108,40
  13687. ; dc.w $10a,40
  13688.  
  13689. ; dc.w $80
  13690. ;JUMPBACKH:
  13691. ; dc.w 0
  13692. ; dc.w $82
  13693. ;JUMPBACKL:
  13694. ; dc.w 0
  13695.  
  13696. ; dc.w $8a,0
  13697.  
  13698.  dc.w $ffff,$fffe
  13699.  dc.w $ffff,$fffe
  13700.  
  13701. PALETTEBIT:
  13702.  incbin "256palette"
  13703.  dc.w $ffff,$fffe
  13704.  
  13705. yposcop:
  13706. ; dc.w $2a11,$fffe
  13707. ; dc.w $8a,0
  13708.  
  13709. ; ds.l 104*12
  13710.  
  13711. ;colbars:
  13712. ;val SET $2a
  13713. ; dcb.l 104*80,$1fe0000
  13714. ; dc.w $106,$c42
  13715. ; 
  13716. ; dc.w $80
  13717. ;pch1:
  13718. ; dc.w 0
  13719. ; dc.w $82
  13720. ;pcl1:
  13721. ; dc.w 0 
  13722. ; 
  13723. ; dc.w $88,0
  13724. ; 
  13725. ; dc.w $ffff,$fffe       ; End copper list.
  13726.  
  13727. ; ds.l 104*12
  13728.  
  13729.  
  13730. ;colbars2:
  13731. ;val SET $2a
  13732. ; dcb.l 104*80,$1fe0000
  13733. ; 
  13734. ; dc.w $106,$c42
  13735. ; 
  13736. ; dc.w $80
  13737. ;pch2:
  13738. ; dc.w 0
  13739. ; dc.w $82
  13740. ;pcl2:
  13741. ; dc.w 0
  13742. ; 
  13743. ; dc.w $88,0
  13744. ; 
  13745. ; dc.w $ffff,$fffe       ; End copper list.
  13746.  
  13747. ; ds.l 104*10
  13748.  
  13749. NullCopper:
  13750.  dc.w $ffff,$fffe
  13751.  
  13752. hitcol: dc.l 0
  13753.  
  13754. old: dc.l 0
  13755.  
  13756.  CNOP 0,64
  13757. SCROLLSCRN: ds.l 20*16
  13758.  
  13759. SCROLLOFFSET: dc.w 0
  13760. SCROLLTIMER: dc.w 100
  13761. SCROLLDIRECTION: dc.w 1
  13762. SCROLLXPOS: dc.w 0
  13763. SCROLLPOINTER: dc.l testscroll
  13764. ENDSCROLL: dc.l endtestscroll
  13765.  
  13766. testscroll:
  13767. ;      12345678901234567890123456789012345678901234567890123456789012345678901234567890
  13768. ; dc.b "The Quick Brown Fox Jumped Over The Lazy Dog!                                   "
  13769. ; dc.b "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ                            "
  13770. ; dc.b "The Quick Brown Fox Jumped Over The Lazy Dog!                                   "
  13771.  
  13772. BLANKSCROLL:
  13773.  dc.b "                                                                                "
  13774. endtestscroll: 
  13775.  
  13776. prot5: dc.w 0
  13777. PanelCop:
  13778.  
  13779.  dc.w $80
  13780. och:
  13781.  dc.w 0
  13782.  dc.w $82
  13783. ocl:
  13784.  dc.w 0
  13785.  
  13786. statskip:
  13787.  dc.w $1fe,0
  13788.  dc.w $1fe,0
  13789.  
  13790.  dc.w $10c,0
  13791.  dc.w bplcon0,$1201
  13792.  dc.w bpl1ptl
  13793. n1l:
  13794.  dc.w 0
  13795.  dc.w bpl1pth
  13796. n1h:
  13797.  dc.w 0
  13798.  dc.w $108,-24
  13799. ; incbin "Panelpal"
  13800.  
  13801.  dc.w bpl2pth
  13802. p2h
  13803.  dc.w 0
  13804.  
  13805.  dc.w bpl2ptl
  13806. p2l
  13807.  dc.w 0
  13808.  
  13809.  dc.w bpl3pth
  13810. p3h
  13811.  dc.w 0
  13812.  
  13813.  dc.w bpl3ptl
  13814. p3l
  13815.  dc.w 0
  13816.  
  13817.  dc.w bpl4pth
  13818. p4h
  13819.  dc.w 0
  13820.  dc.w bpl4ptl
  13821. p4l
  13822.  dc.w 0
  13823.  dc.w bpl5pth
  13824. p5h
  13825.  dc.w 0
  13826.  dc.w bpl5ptl
  13827. p5l
  13828.  dc.w 0
  13829.  dc.w bpl6pth
  13830. p6h
  13831.  dc.w 0
  13832.  dc.w bpl6ptl
  13833. p6l
  13834.  dc.w 0
  13835.  dc.w bpl7pth
  13836. p7h
  13837.  dc.w 0
  13838.  dc.w bpl7ptl
  13839. p7l
  13840.  dc.w 0
  13841.  dc.w bpl8pth
  13842. p8h
  13843.  dc.w 0
  13844.  dc.w bpl8ptl
  13845. p8l
  13846.  dc.w 0
  13847.  
  13848.  
  13849.  dc.w ddfstart,$38
  13850.  dc.w ddfstop,$b8
  13851.  dc.w diwstart,$2c81
  13852.  dc.w diwstop,$2cc1
  13853.  
  13854.  dc.w bplcon0
  13855. Panelcon: dc.w $0211
  13856.  dc.w bpl1pth
  13857. p1h
  13858.  dc.w 0
  13859.  
  13860.  dc.w bpl1ptl
  13861. p1l
  13862.  dc.w 0
  13863.  
  13864.  
  13865.  dc.w $108,40*7
  13866.  dc.w $10a,40*7
  13867.  
  13868.  dc.w $ffff,$fffe
  13869.  
  13870.  dc.w $180,$fff
  13871.  
  13872.  
  13873.  dc.w $f801,$ff00
  13874.  dc.w col1,$50
  13875.  dc.w $f901,$ff00
  13876.  dc.w col1,$90
  13877.  dc.w $fa01,$ff00
  13878.  dc.w col1,$f0
  13879.  dc.w $fb01,$ff00
  13880.  dc.w col1,$f0
  13881.  dc.w $fc01,$ff00
  13882.  dc.w col1,$90
  13883.  dc.w $fd01,$ff00
  13884.  dc.w col1,$50
  13885.  
  13886.  dc.w $fe01,$ff00
  13887.  dc.w col1,$fff
  13888.  
  13889.  dc.w $ffdf,$fffe
  13890.  dc.w $a01,$ff00
  13891.  dc.w bplcon0,$201
  13892.  
  13893. ; incbin "faces2cols"
  13894.  dc.w bpl1pth
  13895. f1h
  13896.  dc.w 0
  13897.  
  13898.  dc.w bpl1ptl
  13899. f1l
  13900.  dc.w 0
  13901.  
  13902.  dc.w bpl2pth
  13903. f2h
  13904.  dc.w 0
  13905.  
  13906.  dc.w bpl2ptl
  13907. f2l
  13908.  dc.w 0
  13909.  
  13910.  dc.w bpl3pth
  13911. f3h
  13912.  dc.w 0
  13913.  
  13914.  dc.w bpl3ptl
  13915. f3l
  13916.  dc.w 0
  13917.  
  13918.  dc.w bpl4pth
  13919. f4h
  13920.  dc.w 0
  13921.  dc.w bpl4ptl
  13922. f4l
  13923.  dc.w 0
  13924.  
  13925.  dc.w bpl5pth
  13926. f5h
  13927.  dc.w 0
  13928.  dc.w bpl5ptl
  13929. f5l
  13930.  dc.w 0
  13931.  
  13932.  dc.w $0c01,$ff00
  13933.  dc.w bplcon0,$5201
  13934.   
  13935.  dc.w $ffff,$fffe
  13936.  
  13937.  cnop 0,64
  13938. FacePlace:
  13939. ; ds.l 6*32*5
  13940.  
  13941. TEXTSCRN: dc.l 0
  13942.  
  13943. TEXTCOP:
  13944.  dc.w intreq,$8030
  13945.  
  13946.  dc.w spr0ptl
  13947. txs0l:
  13948.  dc.w 0
  13949.  dc.w spr0pth
  13950. txs0h:
  13951.  dc.w 0
  13952.  dc.w spr1ptl
  13953. txs1l:
  13954.  dc.w 0
  13955.  dc.w spr1pth
  13956. txs1h:
  13957.  dc.w 0
  13958.  dc.w spr2ptl
  13959. txs2l:
  13960.  dc.w 0
  13961.  dc.w spr2pth
  13962. txs2h:
  13963.  dc.w 0
  13964.  dc.w spr3ptl
  13965. txs3l:
  13966.  dc.w 0
  13967.  dc.w spr3pth
  13968. txs3h:
  13969.  dc.w 0
  13970.  dc.w spr4ptl
  13971. txs4l:
  13972.  dc.w 0
  13973.  dc.w spr4pth
  13974. txs4h:
  13975.  dc.w 0
  13976.  dc.w spr5ptl
  13977. txs5l:
  13978.  dc.w 0
  13979.  dc.w spr5pth
  13980. txs5h:
  13981.  dc.w 0
  13982.  dc.w spr6ptl
  13983. txs6l:
  13984.  dc.w 0
  13985.  dc.w spr6pth
  13986. txs6h:
  13987.  dc.w 0
  13988.  dc.w spr7ptl
  13989. txs7l:
  13990.  dc.w 0
  13991.  dc.w spr7pth
  13992. txs7h:
  13993.  dc.w 0
  13994.  
  13995.  
  13996.  dc.w $10c,$0088
  13997.  
  13998.  dc.w $1fc,$f
  13999.  dc.w diwstart,$2c81    ; Top left corner of screen.
  14000.  dc.w diwstop
  14001. BOTOFTXT:
  14002.  dc.w $2cc1     ; Bottom right corner of screen.
  14003.  dc.w ddfstart,$38      ; Data fetch start.
  14004.  dc.w ddfstop,$c8       ; Data fetch stop.
  14005.  
  14006.  dc.w bplcon0
  14007. TSCP:
  14008.  dc.w $a201
  14009.  
  14010.  dc.w $106,$c40
  14011.  
  14012.  dc.w $2a01,$ff00
  14013.  
  14014.  dc.w col0,0
  14015.  dc.w col1
  14016. TOPLET:
  14017. TXTCOLL:
  14018.  dc.w 0
  14019.   dc.w col2
  14020. BOTLET:
  14021. TOPCOLL:
  14022.  dc.w 0
  14023.  dc.w col3
  14024. ALLTEXT:
  14025. MIXCOLL:
  14026.  dc.w $fff
  14027.  dc.w $106,$e40
  14028.  dc.w col3
  14029. ALLTEXTLOW:
  14030.  dc.w $0
  14031.  
  14032.  
  14033.  dc.w bpl1pth
  14034. TSPTh:
  14035.  dc.w 0
  14036.  dc.w bpl1ptl
  14037. TSPTl:
  14038.  dc.w 0
  14039.  
  14040.  dc.w bpl2pth
  14041. TSPTh2:
  14042.  dc.w 0
  14043.  dc.w bpl2ptl
  14044. TSPTl2:
  14045.  dc.w 0
  14046.  
  14047.  
  14048.  dc.w $108,0
  14049.  dc.w $10a,0
  14050.  
  14051.  dc.w $ffff,$fffe
  14052.  
  14053. ********************************************
  14054. * Stuff you don't have to worry about yet. *
  14055. ********************************************
  14056.  
  14057. closeeverything:
  14058.  
  14059. ; jsr mt_end
  14060.  
  14061.  move.l #nullcop,d0
  14062. ; move.l old,d0
  14063.  
  14064.  
  14065. ;charlie  
  14066.  move.l d0,$dff080     ; Restore old copper list.
  14067.  move.w d0,ocl
  14068.  swap d0
  14069.  move.w d0,och
  14070.  
  14071. ; move.l doslib,a6
  14072. ; move.l #4,d1
  14073. ; jsr -198(a6)
  14074.  
  14075. ; move.l doslib,d0
  14076. ; move.l d0,a1
  14077. ; move.l 4.w,a6
  14078. ; jsr CloseLib(a6)
  14079.  
  14080.  move.l #$dff000,a6
  14081.  move.w #$8020,dmacon(a6)
  14082.  move.w #$f,dmacon(a6)
  14083.  
  14084. ; move.l 4.w,a6
  14085. ; lea VBLANKInt,a1
  14086. ; moveq #INTB_COPER,d0
  14087. ; jsr _LVORemIntServer(a6)
  14088.  
  14089. ; IFEQ CD32VER
  14090. ; move.l OLDKINT,$68.w
  14091. ; ENDC
  14092. ; move.w saveinters,d0
  14093. ; or.w #$c000,d0
  14094. ; move.w d0,intena(a6)
  14095.  clr.w $dff0a8
  14096.  clr.w $dff0b8
  14097.  clr.w $dff0c8
  14098.  clr.w $dff0d8
  14099.  
  14100.  
  14101. ; move.l oldview,a1
  14102. ; move.l a1,d0
  14103. ; move.l gfxbase,a6
  14104. ; jsr -$de(a6)
  14105.  
  14106. ; cmp.b #'s',mors
  14107. ; beq.s leaveold
  14108. ; move.w #$f8e,$dff1dc
  14109. ;leaveold:
  14110.  
  14111.  jsr RELEASELEVELMEM
  14112.  jsr RELEASESCRNMEM
  14113.  
  14114.  move.l #0,d0
  14115.  
  14116.  rts
  14117.  
  14118.  
  14119.  
  14120. intbase: dc.l 0
  14121. gfxbase: dc.l 0
  14122. oldview: dc.l 0
  14123.  
  14124. stuff:
  14125.  
  14126.     PRSDL
  14127.     Lea    gfxname(pc),a1    
  14128.     Moveq.l    #0,d0
  14129.     Move.l    $4.w,a6    
  14130.     Jsr    -$228(a6)
  14131.     add.w d1,RVAL1
  14132.     Move.l     d0,gfxbase
  14133.     Move.l    d0,a6                Use As Base Reg
  14134.     Move.l    34(a6),oldview
  14135.     move.l 38(a6),old
  14136.     rts
  14137.  
  14138. gfxname dc.b "graphics.library",0
  14139.  even
  14140. INTUNAME    dc.b    "intuition.library",0
  14141.  
  14142.  even
  14143.  
  14144.  
  14145.  cnop 0,64
  14146.  
  14147. Panel:
  14148.  dc.l 0
  14149.  
  14150. TimerScr: 
  14151. ;ds.b 40*64
  14152.  
  14153. scrntab:
  14154.  ds.b 16
  14155. val SET 32
  14156.  REPT 96
  14157.  dc.b val,val,val
  14158. val SET val+1
  14159.  ENDR
  14160.  ds.b 16
  14161.  
  14162. smallscrntab:
  14163. val SET 32
  14164.  REPT 96
  14165.  dc.b val,val
  14166. val SET val+1
  14167.  ENDR
  14168.  
  14169.  cnop 0,64
  14170. scrn:
  14171.  dc.l 0
  14172. ; incbin "ab3:includes/newborderRAW"
  14173. ; ds.b 80
  14174. scrn2:
  14175.  dc.l 0
  14176.  
  14177. ;flib:
  14178. ; incbin "ab3:includes/newborderRAW"
  14179. ; ds.b 80
  14180. ;flib2:
  14181. ; incbin "ab3:includes/newborderRAW"
  14182. ; ds.b 80
  14183.  
  14184. ; incbin "ab3:includes/newborderRAW"
  14185. ; ds.b 80
  14186.  
  14187. SCRNDRAWPT: dc.l 0
  14188. SCRNSHOWPT: dc.l 0
  14189.  
  14190. ; dcb.l 8,$33333333
  14191. ; dc.l 0
  14192. ; dc.l 0
  14193. ; 
  14194. ; dcb.l 8,$0f0f0f0f
  14195. ; dc.l 0
  14196. ; dc.l 0
  14197. ;
  14198. ; dcb.l 8,$00ff00ff
  14199. ; dc.l 0
  14200. ; dc.l 0
  14201. ; 
  14202. ; dcb.l 8,$0000ffff
  14203. ; dc.l 0
  14204. ; dc.l 0
  14205. ; 
  14206. ; dc.l 0,-1,0,-1,0,-1,0,-1
  14207. ; dc.l 0
  14208. ; dc.l 0
  14209. ; 
  14210. ; dc.l -1,-1,0,0,-1,-1,0,0
  14211. ; dc.l 0
  14212. ; dc.l 0
  14213. ; 
  14214. ; dc.l 0,0,-1,-1,-1,-1,-1,-1
  14215. ; dc.l 0
  14216. ; dc.l 0
  14217.  
  14218. NumTimes: dc.l 0
  14219. TimeCount: dc.l 0
  14220. oldtime: dc.l 0
  14221. counting: dc.b 0
  14222. oktodisplay: dc.b 0
  14223.  
  14224. INITTIMER:
  14225.  move.l #0,TimeCount
  14226.  move.l #0,NumTimes
  14227.  rts
  14228.  
  14229. STARTCOUNT:
  14230.  move.l d0,-(a7)
  14231.  move.l $dff004,d0
  14232.  and.l #$1ffff,d0
  14233.  move.l d0,oldtime
  14234.  st counting
  14235.  move.l (a7)+,d0
  14236.  rts
  14237.  
  14238. STOPCOUNT:
  14239.  move.l d0,-(a7)
  14240.  move.l $dff004,d0
  14241.  and.l #$1ffff,d0
  14242.  
  14243.  sub.l oldtime,d0
  14244.  cmp.l #-256,d0
  14245.  bge.s okcount
  14246.  add.l #313*256,d0
  14247. okcount:
  14248.  add.l d0,TimeCount
  14249.  addq.l #1,NumTimes
  14250.  clr.b counting
  14251.  move.l (a7)+,d0
  14252.  rts
  14253.  
  14254. STOPCOUNTNOADD:
  14255.  move.l d0,-(a7)
  14256.  move.l $dff004,d0
  14257.  and.l #$1ffff,d0
  14258.  
  14259.  sub.l oldtime,d0
  14260.  cmp.l #-256,d0
  14261.  bge.s okcount2
  14262.  add.l #313*256,d0
  14263. okcount2:
  14264.  add.l d0,TimeCount
  14265.  clr.b counting
  14266.  move.l (a7)+,d0
  14267.  rts
  14268.  
  14269. maxbot: dc.w 0
  14270. tstneg: dc.l 0
  14271.  
  14272. STOPTIMER:
  14273.  st oktodisplay
  14274.  rts
  14275.  
  14276. digits: incbin "numbers.inc"
  14277.  
  14278. COMPACTMAP: ds.l 257
  14279.  
  14280. BIGMAP: ds.l 256*10
  14281.  
  14282.  Section Sounds,CODE_C
  14283.  
  14284. nullcop:
  14285.  dc.w $106,$c40
  14286.  dc.w $180,0 
  14287.  dc.w $100,$0
  14288.  dc.w $ffff,$fffe
  14289.  
  14290. Scream:
  14291. ; incbin "ab3:sounds/Scream"
  14292. ; ds.w 100
  14293. EndScream:
  14294. LowScream:
  14295. ; incbin "ab3:sounds/LowScream"
  14296. ; ds.w 100
  14297. EndLowScream:
  14298. BaddieGun:
  14299. ; incbin "ab3:sounds/BaddieGun"
  14300. EndBaddieGun:
  14301. bass:
  14302. ; incbin "ab3:sounds/backbass+drum"
  14303. bassend:
  14304. Shoot:
  14305. ; incbin "ab3:sounds/fire!"
  14306. EndShoot:
  14307. Munch:
  14308. ; incbin "ab3:sounds/munch"
  14309. EndMunch:
  14310. PooGun:
  14311. ; incbin "ab3:sounds/shoot.dm"
  14312. EndPooGun:
  14313. Collect:
  14314. ; incbin "ab3:sounds/collect"
  14315. EndCollect:
  14316. DoorNoise:
  14317. ; incbin "ab3:sounds/newdoor"
  14318. EndDoorNoise:
  14319. Stomp:
  14320. ; incbin "ab3:sounds/footstep3"
  14321. EndStomp:
  14322. SwitchNoise:
  14323. ; incbin "ab3:sounds/switch"
  14324. EndSwitch:
  14325. Reload:
  14326. ; incbin "ab3:sounds/switch1.SFX"
  14327. EndReload:
  14328.  
  14329. CHEATFRAME:
  14330.  dc.b 26,20,33,27,17,12
  14331. ENDCHEAT:
  14332.  
  14333. NoAmmo:
  14334. ; incbin "ab3:sounds/noammo"
  14335. EndNoAmmo:
  14336. Splotch:
  14337. ; incbin "ab3:sounds/splotch"
  14338. EndSplotch:
  14339. SplatPop:
  14340. ; incbin "ab3:sounds/splatpop"
  14341. EndSplatPop:
  14342. Boom:
  14343. ; incbin "ab3:sounds/boom"
  14344. EndBoom:
  14345. Hiss:
  14346. ; incbin "ab3:sounds/newhiss"
  14347. EndHiss:
  14348. Howl1:
  14349. ; incbin "ab3:sounds/howl1"
  14350. EndHowl1:
  14351. Howl2:
  14352. ; incbin "ab3:sounds/howl2"
  14353. EndHowl2:
  14354. Pant:
  14355. ; incbin "ab3:sounds/pant"
  14356. EndPant:
  14357. Whoosh:
  14358. ; incbin "ab3:sounds/whoosh"
  14359. EndWhoosh:
  14360. ROAR:
  14361. ; incbin "ab3:sounds/bigscream"
  14362. EndROAR
  14363. whoosh:
  14364. ; incbin "ab3:sounds/flame"
  14365. Endwhoosh:
  14366.  SECTION music,code_c
  14367.  
  14368. UseAllChannels: dc.w 0
  14369.  
  14370. mt_init:
  14371.     move.l    mt_data,a0
  14372.     move.l    a0,a1
  14373.     add.l    #$3b8,a1
  14374.     moveq    #$7f,d0
  14375.     moveq    #0,d1
  14376. mt_loop:move.l    d1,d2
  14377.     subq.w    #1,d0
  14378. mt_lop2:move.b    (a1)+,d1
  14379.     cmp.b    d2,d1
  14380.     bgt.s    mt_loop
  14381.     dbf    d0,mt_lop2
  14382.     addq.b    #1,d2
  14383.  
  14384.     lea    mt_samplestarts(pc),a1
  14385.     asl.l    #8,d2
  14386.     asl.l    #2,d2
  14387.     add.l    #$43c,d2
  14388.     add.l    a0,d2
  14389.     move.l    d2,a2
  14390.     moveq    #$1e,d0
  14391. mt_lop3:
  14392.     clr.l    (a2)
  14393.     move.l    a2,(a1)+
  14394.     moveq    #0,d1
  14395.     move.w    42(a0),d1
  14396.     asl.l    #1,d1
  14397.     add.l    d1,a2
  14398.     add.l    #$1e,a0
  14399.     dbf    d0,mt_lop3
  14400.  
  14401.     or.b    #$2,$bfe001
  14402.     move.b    #$6,mt_speed
  14403.     clr.w    $dff0a8
  14404.     clr.w    $dff0b8
  14405.     clr.w    $dff0c8
  14406.     clr.w    $dff0d8
  14407.     clr.b    mt_songpos
  14408.     clr.b    mt_counter
  14409.     clr.w    mt_pattpos
  14410.     rts
  14411.  
  14412. mt_end:    clr.w    $dff0a8
  14413.     clr.w    $dff0b8
  14414.     clr.w    $dff0c8
  14415.     clr.w    $dff0d8
  14416.     move.w    #$f,$dff096
  14417.     rts
  14418.  
  14419. mt_music:
  14420.     movem.l    d0-d4/a0-a3/a5-a6,-(a7)
  14421.     move.l    mt_data,a0
  14422.     addq.b    #$1,mt_counter
  14423.     move.b    mt_counter,D0
  14424.     cmp.b    mt_speed,D0
  14425.     blt.s    mt_nonew
  14426.     clr.b    mt_counter
  14427.     bra    mt_getnew
  14428.  
  14429. mt_nonew:
  14430.     lea    mt_voice1(pc),a6
  14431.     lea    $dff0a0,a5
  14432.     bsr    mt_checkcom
  14433.     tst.b UseAllChannels
  14434.     beq mt_endr
  14435.     lea    mt_voice2(pc),a6
  14436.     lea    $dff0b0,a5
  14437.     bsr    mt_checkcom
  14438.      lea    mt_voice3(pc),a6
  14439.     lea    $dff0c0,a5
  14440.     bsr    mt_checkcom
  14441.     lea    mt_voice4(pc),a6
  14442.     lea    $dff0d0,a5
  14443.     bsr    mt_checkcom
  14444.     bra    mt_endr
  14445.  
  14446. mt_arpeggio:
  14447.     moveq    #0,d0
  14448.     move.b    mt_counter,d0
  14449.     divs    #$3,d0
  14450.     swap    d0
  14451.     cmp.w    #$0,d0
  14452.     beq.s    mt_arp2
  14453.     cmp.w    #$2,d0
  14454.     beq.s    mt_arp1
  14455.  
  14456.     moveq    #0,d0
  14457.     move.b    $3(a6),d0
  14458.     lsr.b    #4,d0
  14459.     bra.s    mt_arp3
  14460. mt_arp1:moveq    #0,d0
  14461.     move.b    $3(a6),d0
  14462.     and.b    #$f,d0
  14463.     bra.s    mt_arp3
  14464. mt_arp2:move.w    $10(a6),d2
  14465.     bra.s    mt_arp4
  14466. mt_arp3:asl.w    #1,d0
  14467.     moveq    #0,d1
  14468.     move.w    $10(a6),d1
  14469.     lea    mt_periods(pc),a0
  14470.     moveq    #$24,d7
  14471. mt_arploop:
  14472.     move.w    (a0,d0.w),d2
  14473.     cmp.w    (a0),d1
  14474.     bge.s    mt_arp4
  14475.     addq.l    #2,a0
  14476.     dbf    d7,mt_arploop
  14477.     rts
  14478. mt_arp4:move.w    d2,$6(a5)
  14479.     rts
  14480.  
  14481. mt_getnew:
  14482.     move.l    mt_data,a0
  14483.     move.l    a0,a3
  14484.     move.l    a0,a2
  14485.     add.l    #$c,a3
  14486.     add.l    #$3b8,a2
  14487.     add.l    #$43c,a0
  14488.  
  14489.     moveq    #0,d0
  14490.     move.l    d0,d1
  14491.     move.b    mt_songpos,d0
  14492.     move.b    (a2,d0.w),d1
  14493.     asl.l    #8,d1
  14494.     asl.l    #2,d1
  14495.     add.w    mt_pattpos,d1
  14496.     clr.w    mt_dmacon
  14497.  
  14498.     lea    $dff0a0,a5
  14499.     lea    mt_voice1(pc),a6
  14500.     bsr    mt_playvoice
  14501.     tst.b UseAllChannels
  14502.     beq mt_setdma
  14503.     lea    $dff0b0,a5
  14504.     lea    mt_voice2(pc),a6
  14505.     bsr    mt_playvoice
  14506.     lea    $dff0c0,a5
  14507.     lea    mt_voice3(pc),a6
  14508.     bsr    mt_playvoice
  14509.     lea    $dff0d0,a5
  14510.     lea    mt_voice4(pc),a6
  14511.     bsr    mt_playvoice
  14512.     bra    mt_setdma
  14513.  
  14514. PROTCALC:
  14515. ;    include "ab3:source_4000/protcalc.s"
  14516.     incbin "ab3:includes/protcalc.bin"
  14517. ENDPROTCALC:
  14518.  
  14519. mt_playvoice:
  14520.     move.l    (a0,d1.l),(a6)
  14521.     addq.l    #4,d1
  14522.     moveq    #0,d2
  14523.     move.b    $2(a6),d2
  14524.     and.b    #$f0,d2
  14525.     lsr.b    #4,d2
  14526.     move.b    (a6),d0
  14527.     and.b    #$f0,d0
  14528.     or.b    d0,d2
  14529.     tst.b    d2
  14530.     beq.s    mt_setregs
  14531.     moveq    #0,d3
  14532.     lea    mt_samplestarts(pc),a1
  14533.     move.l    d2,d4
  14534.     subq.l    #$1,d2
  14535.     asl.l    #2,d2
  14536.     mulu    #$1e,d4
  14537.     move.l    (a1,d2.l),$4(a6)
  14538.     move.w    (a3,d4.l),$8(a6)
  14539.     move.w    $2(a3,d4.l),$12(a6)
  14540.     move.w    $4(a3,d4.l),d3
  14541.     tst.w    d3
  14542.     beq.s    mt_noloop
  14543.     move.l    $4(a6),d2
  14544.     asl.w    #1,d3
  14545.     add.l    d3,d2
  14546.     move.l    d2,$a(a6)
  14547.     move.w    $4(a3,d4.l),d0
  14548.     add.w    $6(a3,d4.l),d0
  14549.     move.w    d0,8(a6)
  14550.     move.w    $6(a3,d4.l),$e(a6)
  14551.     move.w    $12(a6),d0
  14552.     move.w d0,$8(a5)
  14553.     bra.s    mt_setregs
  14554. mt_noloop:
  14555.     move.l    $4(a6),d2
  14556.     add.l    d3,d2
  14557.     move.l    d2,$a(a6)
  14558.     move.w    $6(a3,d4.l),$e(a6)
  14559.     move.w    $12(a6),d0
  14560.     move.w d0,$8(a5)
  14561. mt_setregs:
  14562.     move.w    (a6),d0
  14563.     and.w    #$fff,d0
  14564.     beq    mt_checkcom2
  14565.     move.b    $2(a6),d0
  14566.     and.b    #$F,d0
  14567.     cmp.b    #$3,d0
  14568.     bne.s    mt_setperiod
  14569.     bsr    mt_setmyport
  14570.     bra    mt_checkcom2
  14571. mt_setperiod:
  14572.     move.w    (a6),$10(a6)
  14573.     and.w    #$fff,$10(a6)
  14574.     move.w    $14(a6),d0
  14575.     move.w    d0,$dff096
  14576.     clr.b    $1b(a6)
  14577.  
  14578.     move.l    $4(a6),(a5)
  14579.     move.w    $8(a6),$4(a5)
  14580.     move.w    $10(a6),d0
  14581.     and.w    #$fff,d0
  14582.     move.w    d0,$6(a5)
  14583.     move.w    $14(a6),d0
  14584.     or.w    d0,mt_dmacon
  14585.     bra    mt_checkcom2
  14586.  
  14587. mt_setdma:
  14588.      move.w #250,d0
  14589. mt_wait:
  14590.      add.w #1,testchip
  14591.      dbra d0,mt_wait
  14592.     move.w    mt_dmacon,d0
  14593.     or.w    #$8000,d0
  14594.     tst.b UseAllChannels
  14595.     bne.s .splib
  14596.     and.w #%1111111111110001,d0
  14597. .splib
  14598.     move.w    d0,$dff096
  14599.     move.w #250,d0
  14600. mt_wait2:
  14601.     add.w #1,testchip
  14602.     dbra    d0,mt_wait2
  14603.     lea    $dff000,a5
  14604.     tst.b UseAllChannels
  14605.     beq.s noall
  14606.     lea    mt_voice4(pc),a6
  14607.     move.l    $a(a6),$d0(a5)
  14608.     move.w    $e(a6),$d4(a5)
  14609.     lea    mt_voice3(pc),a6
  14610.     move.l    $a(a6),$c0(a5)
  14611.     move.w    $e(a6),$c4(a5)
  14612.     lea    mt_voice2(pc),a6
  14613.     move.l    $a(a6),$b0(a5)
  14614.     move.w    $e(a6),$b4(a5)
  14615. noall:
  14616.     lea    mt_voice1(pc),a6
  14617.     move.l    $a(a6),$a0(a5)
  14618.     move.w    $e(a6),$a4(a5)
  14619.  
  14620.     add.w    #$10,mt_pattpos
  14621.     cmp.w    #$400,mt_pattpos
  14622.     bne.s    mt_endr
  14623. mt_nex:    clr.w    mt_pattpos
  14624.     clr.b    mt_break
  14625.     addq.b    #1,mt_songpos
  14626.     and.b    #$7f,mt_songpos
  14627.     move.b    mt_songpos,d1
  14628. ;    cmp.b    mt_data+$3b6,d1
  14629. ;    bne.s    mt_endr
  14630. ;    move.b    mt_data+$3b7,mt_songpos
  14631. mt_endr:tst.b    mt_break
  14632.     bne.s    mt_nex
  14633.     movem.l    (a7)+,d0-d4/a0-a3/a5-a6
  14634.     rts
  14635.  
  14636. mt_setmyport:
  14637.     move.w    (a6),d2
  14638.     and.w    #$fff,d2
  14639.     move.w    d2,$18(a6)
  14640.     move.w    $10(a6),d0
  14641.     clr.b    $16(a6)
  14642.     cmp.w    d0,d2
  14643.     beq.s    mt_clrport
  14644.     bge.s    mt_rt
  14645.     move.b    #$1,$16(a6)
  14646.     rts
  14647. mt_clrport:
  14648.     clr.w    $18(a6)
  14649. mt_rt:    rts
  14650.  
  14651. CODESTORE: dc.l 0
  14652.  
  14653. mt_myport:
  14654.     move.b    $3(a6),d0
  14655.     beq.s    mt_myslide
  14656.     move.b    d0,$17(a6)
  14657.     clr.b    $3(a6)
  14658. mt_myslide:
  14659.     tst.w    $18(a6)
  14660.     beq.s    mt_rt
  14661.     moveq    #0,d0
  14662.     move.b    $17(a6),d0
  14663.     tst.b    $16(a6)
  14664.     bne.s    mt_mysub
  14665.     add.w    d0,$10(a6)
  14666.     move.w    $18(a6),d0
  14667.     cmp.w    $10(a6),d0
  14668.     bgt.s    mt_myok
  14669.     move.w    $18(a6),$10(a6)
  14670.     clr.w    $18(a6)
  14671. mt_myok:move.w    $10(a6),$6(a5)
  14672.     rts
  14673. mt_mysub:
  14674.     sub.w    d0,$10(a6)
  14675.     move.w    $18(a6),d0
  14676.     cmp.w    $10(a6),d0
  14677.     blt.s    mt_myok
  14678.     move.w    $18(a6),$10(a6)
  14679.     clr.w    $18(a6)
  14680.     move.w    $10(a6),$6(a5)
  14681.     rts
  14682.  
  14683. mt_vib:    move.b    $3(a6),d0
  14684.     beq.s    mt_vi
  14685.     move.b    d0,$1a(a6)
  14686.  
  14687. mt_vi:    move.b    $1b(a6),d0
  14688.     lea    mt_sin(pc),a4
  14689.     lsr.w    #$2,d0
  14690.     and.w    #$1f,d0
  14691.     moveq    #0,d2
  14692.     move.b    (a4,d0.w),d2
  14693.     move.b    $1a(a6),d0
  14694.     and.w    #$f,d0
  14695.     mulu    d0,d2
  14696.     lsr.w    #$6,d2
  14697.     move.w    $10(a6),d0
  14698.     tst.b    $1b(a6)
  14699.     bmi.s    mt_vibmin
  14700.     add.w    d2,d0
  14701.     bra.s    mt_vib2
  14702. mt_vibmin:
  14703.     sub.w    d2,d0
  14704. mt_vib2:move.w    d0,$6(a5)
  14705.     move.b    $1a(a6),d0
  14706.     lsr.w    #$2,d0
  14707.     and.w    #$3c,d0
  14708.     add.b    d0,$1b(a6)
  14709.     rts
  14710.  
  14711. mt_nop:    move.w    $10(a6),$6(a5)
  14712.     rts
  14713.  
  14714.  
  14715. mt_checkcom:
  14716.     move.w    $2(a6),d0
  14717.     and.w    #$fff,d0
  14718.     beq.s    mt_nop
  14719.     move.b    $2(a6),d0
  14720.     and.b    #$f,d0
  14721.     tst.b    d0
  14722.     beq    mt_arpeggio
  14723.     cmp.b    #$1,d0
  14724.     beq.s    mt_portup
  14725.     cmp.b    #$2,d0
  14726.     beq    mt_portdown
  14727.     cmp.b    #$3,d0
  14728.     beq    mt_myport
  14729.     cmp.b    #$4,d0
  14730.     beq    mt_vib
  14731.     move.w    $10(a6),$6(a5)
  14732.     cmp.b    #$a,d0
  14733.     beq.s    mt_volslide
  14734.     rts
  14735.  
  14736. mt_volslide:
  14737.     moveq    #0,d0
  14738.     move.b    $3(a6),d0
  14739.     lsr.b    #4,d0
  14740.     tst.b    d0
  14741.     beq.s    mt_voldown
  14742.     add.w    d0,$12(a6)
  14743.     cmp.w    #$40,$12(a6)
  14744.     bmi.s    mt_vol2
  14745.     move.w    #$40,$12(a6)
  14746. mt_vol2:move.w    $12(a6),d0
  14747.     asr.w #2,d0
  14748.     move.w d0,$8(a5)
  14749.     rts
  14750.  
  14751. mt_voldown:
  14752.     moveq    #0,d0
  14753.     move.b    $3(a6),d0
  14754.     and.b    #$f,d0
  14755.     sub.w    d0,$12(a6)
  14756.     bpl.s    mt_vol3
  14757.     clr.w    $12(a6)
  14758. mt_vol3:move.w    $12(a6),d0
  14759.     move.w d0,$8(a5)
  14760.     rts
  14761.  
  14762. mt_portup:
  14763.     moveq    #0,d0
  14764.     move.b    $3(a6),d0
  14765.     sub.w    d0,$10(a6)
  14766.     move.w    $10(a6),d0
  14767.     and.w    #$fff,d0
  14768.     cmp.w    #$71,d0
  14769.     bpl.s    mt_por2
  14770.     and.w    #$f000,$10(a6)
  14771.     or.w    #$71,$10(a6)
  14772. mt_por2:move.w    $10(a6),d0
  14773.     and.w    #$fff,d0
  14774.     move.w    d0,$6(a5)
  14775.     rts
  14776.  
  14777. mt_portdown:
  14778.     clr.w    d0
  14779.     move.b    $3(a6),d0
  14780.     add.w    d0,$10(a6)
  14781.     move.w    $10(a6),d0
  14782.     and.w    #$fff,d0
  14783.     cmp.w    #$358,d0
  14784.     bmi.s    mt_por3
  14785.     and.w    #$f000,$10(a6)
  14786.     or.w    #$358,$10(a6)
  14787. mt_por3:move.w    $10(a6),d0
  14788.     and.w    #$fff,d0
  14789.     move.w    d0,$6(a5)
  14790.     rts
  14791.  
  14792. mt_checkcom2:
  14793.     move.b    $2(a6),d0
  14794.     and.b    #$f,d0
  14795.     cmp.b    #$e,d0
  14796.     beq.s    mt_setfilt
  14797.     cmp.b    #$d,d0
  14798.     beq.s    mt_pattbreak
  14799.     cmp.b    #$b,d0
  14800.     beq.s    mt_posjmp
  14801.     cmp.b    #$c,d0
  14802.     beq.s    mt_setvol
  14803.     cmp.b    #$f,d0
  14804.     beq.s    mt_setspeed
  14805.     rts
  14806.  
  14807. mt_setfilt:
  14808.     move.b    $3(a6),d0
  14809.     and.b    #$1,d0
  14810.     asl.b    #$1,d0
  14811.     and.b    #$fd,$bfe001
  14812.     or.b    d0,$bfe001
  14813.     rts
  14814. mt_pattbreak:
  14815.     not.b    mt_break
  14816.     rts
  14817. mt_posjmp:
  14818.     st reachedend
  14819.     move.b    $3(a6),d0
  14820.     subq.b    #$1,d0
  14821.     move.b    d0,mt_songpos
  14822.     not.b    mt_break
  14823.     rts
  14824. mt_setvol:
  14825.     cmp.b    #$40,$3(a6)
  14826.     ble.s    mt_vol4
  14827.     move.b    #$40,$3(a6)
  14828. mt_vol4:move.b    $3(a6),d0
  14829.     move.w d0,$8(a5)
  14830.     rts
  14831. mt_setspeed:
  14832.     cmp.b    #$1f,$3(a6)
  14833.     ble.s    mt_sets
  14834.     move.b    #$1f,$3(a6)
  14835. mt_sets:move.b    $3(a6),d0
  14836.     beq.s    mt_rts2
  14837.     move.b    d0,mt_speed
  14838.     clr.b    mt_counter
  14839. mt_rts2:rts
  14840.  
  14841. mt_sin:
  14842.  DC.b $00,$18,$31,$4a,$61,$78,$8d,$a1,$b4,$c5,$d4,$e0,$eb,$f4,$fa,$fd
  14843.  DC.b $ff,$fd,$fa,$f4,$eb,$e0,$d4,$c5,$b4,$a1,$8d,$78,$61,$4a,$31,$18
  14844.  
  14845. mt_periods:
  14846.  DC.w $0358,$0328,$02fa,$02d0,$02a6,$0280,$025c,$023a,$021a,$01fc,$01e0
  14847.  DC.w $01c5,$01ac,$0194,$017d,$0168,$0153,$0140,$012e,$011d,$010d,$00fe
  14848.  DC.w $00f0,$00e2,$00d6,$00ca,$00be,$00b4,$00aa,$00a0,$0097,$008f,$0087
  14849.  DC.w $007f,$0078,$0071,$0000,$0000
  14850.  
  14851. reachedend: dc.b 0
  14852. mt_speed:    DC.b    6
  14853. mt_songpos:    DC.b    0
  14854. mt_pattpos:    DC.w    0
  14855. mt_counter:    DC.b    0
  14856.  
  14857. mt_break:    DC.b    0
  14858. mt_dmacon:    DC.w    0
  14859. mt_samplestarts:DS.L    $1f
  14860. mt_voice1:    DS.w    10
  14861.         DC.w    1
  14862.         DS.w    3
  14863. mt_voice2:    DS.w    10
  14864.         DC.w    2
  14865.         DS.w    3
  14866. mt_voice3:    DS.w    10
  14867.         DC.w    4
  14868.         DS.w    3
  14869. mt_voice4:    DS.w    10
  14870.         DC.w    8
  14871.         DS.w    3
  14872.  
  14873. CHEATPTR: dc.l 0
  14874. CHEATNUM: dc.l 0
  14875.  
  14876. testchip: dc.w 0
  14877.  
  14878. LEVELMUSIC: dc.l 0
  14879.  
  14880. ;/* End of File */
  14881. mt_data: dc.l 0
  14882. tstchip: dc.l 0
  14883.  include "SERIAL_NIGHTMARE"
  14884.  
  14885. ingame:
  14886. ; incbin "work:temp/newmusic/testonechan"
  14887. gameover: 
  14888. ;incbin "ab3:includes/gameover"
  14889. welldone: incbin "ab3:includes/newwelldone"
  14890.  
  14891.  
  14892.